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-REM & 
IDENTIFICATION 
PRODUCT CODE: AC~E648A-MC 
PRODUCT NAME: CZTUUAO TUS8 PERF EXER 
PRODUCT DATE: 17-APR-79 
MAINTAINER: PERIPHERAL DIAGNOSTIC GROUP 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR !N THIS DOCUMENT. 


NO RESPONSIBILITY 1S ——t FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1979 BY DIGITAL EQUIPMENT CORPORATION 
THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MAS SBUS 
DEC DECUS - DECTAPE 
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GENERAL INFORMATION 


THIS DIAGNOSTIC EXERCISES FROM 1 TO 8 a CONTROLLER BOARDS, EACH 
OF WHICH MAY SUPPORT 1 OR 2 DRIVES. THE PROGRAM IMPLIMENTS THE 
"MAINTENANCE MODE'’ SWITCH WITHIN ALL PACKET COMMANDS, THUS RETRIEVING 
Avnet ey INFORMATION FROM THE DEVICE UPON CERTAIN DEVICE RECOGNIZED 


STATISTICAL SUMMARIES ARE PROVIDED FOR ALL UNITS TESTED. RETRIES 
ARE PERFORMED ON DATA-RELATED ERROR CONDITIONS. 


USE OF LOOP ON ERROR FLAG (:LOE) IS IMPLEMENTED BUT NOT 
RECOMMENDED FOR USE, SINCE THE LOOPS ARE QUITE LENGTHLY DUE 
TO COMMUNICATIONS PROTOCOL OVERHEAD. 


IN ORDER TO cai} MULTIPLE UNITS IN AN EFFICIENT MANNER, 
SCHEDULING ALGORITHM BUILDS, THEN SENDS THE NEXT COMMUNI CATION 
PACKET (COMMAND OR DA a FORMULATED BY EXECUTING +g CODE WITHIN 
THE TEST ALGORITHMS. 


TE 

TESTS WAS ALSO a a hs a 
FOR INSTANCE, UNIT 0 COULD BE PERFORMING T TEST 6, WHILE UNIT 7 WA 
PUT ON LINE AND STARTED ON TEST 1, OR UNIT 5 ABORTED AND WAS TAK AKEN 
OFF LINE, ETC... FOLLOWING CONVERSION TO RUN UNDER THE DIAGNOSTIC 
SUPERVISOR MONITOR, THIS CAPABILITY WAS DEFEATED. ALL UNITS NOW 
PERFORM THE TEST ALGORITHM SPECIFIED ON DRIVE O'S, THEN REPEAT THE TEST 
AFTER SWITCHING DRIVES, IF ANY DRIVE ‘1'S'’ WERE SELECTED. 


FOLLOWING THE TRANSMISSION OF 1 PACKET TO EACH DEVICE (WITH XOFF 
PRECEEDING) THE UNITS ARE Pace AND THEIR ENTIRE RESPONSES 
EVALUATED ROUND ROBIN. IF ANY ERROR INITIATES A RETRY, THE SCHED- 
ULING PROCESS IS MODIFIED 10. COMMUNICATE WITH ONLY 1 UNIT UNTIL 
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COMPLETION OF THE RETRY PROCEDURE. THEN, A RETRY BY ANOTHER UNIT 
MAY PROCEED, OR THE SYSTEM CONTINUES NORMALL 
UPON OCCURANCE OF A DEVICE FATAL ERROR, THAT UNIT IS DESCHEDULED 
(ABORTED) ALLOWING THE REMAINING (IF ANY) TO PROCEED WITH 
ERROR DESCRIPTIONS: 
BLOCK #: THE RECORD NUMBER (1 PER 512. BYTES) 
IN LAST COMMAND PACK. 
COMMAND : THE MOST RECENT COMMAND PACKET OP CODE. 


EXPCTD: THE DATA PATTERN USED ON WRITE COMMAND 
AND FOR DATA COMPARE AFTER READ OP. 


SUCCESS: THE SUCCESS CODE RECEIVED IN END PACKET. 
PAK SENT: TYPE OF PACKET JUST SENT (0 FOR DATA; 
1 FOR COMMAND) 


FLAG RCVD: FLAG BYTE OF PACKET CURRENTLY BEING 
CHECKED, OR 1ST BYTE OF RESPONSE. 


SINCE IN MAINTENANCE MODE TUS8 WILL SEND A BAD DATA PACK WITH A 
"DATA CHECK’ SUCCESS STATUS IN THE FOLLOWING END reas eater ta 


WILL, UPON CHECKING THOSE DATA PACK(S), DETERMINE 

PACKET ERROR FIRST, THEN INTERPRET THE SUCCESS CODE TO gt ae ety 
A COMMUNICATIONS GLITCH (GOOD SUCCESS) VS. TU DATA CHECK em 

THIS WOULD SEEM TO RESULT IN TWO ‘ERROR'’ MESSAGES FOR ONE PRR 
CONDITION, BUT ONLY THE SECOND ERROR MESSAGE WILL CONTAIN PERTINENT 
(NOT ZERO) ERROR NUMBER. 


THROUGHOUT THE PROGRAM, RS POINTS TO ONE OF 8 POSSIBLE DATA 
STRUCTURES CONTAINING STATUS, H ah PARAMETERS, AND STATISTICAL 
INFORMATION FOR THE CURRENT UNIT. ‘'START'’ CLEARS STATISTICS. 
"RESTART’* AND *‘CONTINUE’’ DO NOT. 


SYSTEM REQUIREMENTS 


sm CPU WITH AT LEAST 16K WORDS OF MEMORY AND CONSOLE 


SOF TWARE 


THE PROGRAM IS REVISION C DIAGNOSTIC SUPERVISOR COMPATIBLE EXCEPT 
"LOOP ON ERROR*® CAPABILITY IS NOT RECOMMENDED. CONSULT XXDP+ 
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1.4 


1.2 


2.0 


2.1 
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USERS MANUAL FOR OPERATING INSTRUCTIONS. 
RELATED DOCUMENTS AND STANDARDS 


ASSUMPTIONS 


SYSTEM HARDWARE OTHER THAN TU58(S) IS OPERATIONAL. 


OPERATING INSTRUCTIONS 


ANSWER *‘CHANGE HW?'' WITH YES INITIALLY TO SET UP HARDWARE 
CONFIGURATION TABLES. THAT INFORMATION IS: 


TUSS CSR = ADDRESS OF RCSR OF DLV-11 OR OTHER INTERFACE 
BOARD. 
VECTOR ADDR. ~- ADDRESS OF INTERRUPT VECTOR LOCATION. 


PDT (PARALLEL) INTERFACE -- IS THE TU58 IN A PDT 11/130, 
OR SYSTEM WHOSE cil > ae 


CS 
RCDB (AND XMDB) 
XMSR 


TEST DRO - YES OR NO 
TEST DR1 - YES OR NO 
SUBSEQUENT RESPONSES TO ‘‘CHANGE HW?°* MAY THEN BE ‘NO'’. 


THE SOFTWARE QUESTIONS ARE AS FOLLOWS: 


NUMBER OF BLOCKS: TEST 4-7 -- ae MAY sei ect A MINIMUM OF 8, TO 
A_ MAXIMUM OF 512 Ros TO WRITE, 
URITE VERIFY; AND READ REDUCED, 


READ; 
AS EXPLAINED ELSEWHERE IN THIS DOCUMENT. 


ADD DR # TO DATA PATTERN) == | THOSE SAME READ AND WRITE vests 
4-7, THE DRIVE NUMBER (0 OR 1) MA 


we, 


SEQ 0004 
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BE ADDED TO DATA WRITTEN ON TAPE TO 
INSURE DRIVE SELECT BIT OPERATION. 


STATISTICS PRINTED AT EOP == eres WHETHER OR NOT TO PRINT 
INFORMATION AT END OF PASS OR “C. 
THESE STATISTICS MAY ALSO BE RE~ 
TRIEVED WITH THE *PRI*’ COMMAND. 

COMPARE DATA ON READ SELECTS WHETHER OR NOT TO DO A 
Oe actin ON DATA PACKETS RE=- 


PRINT PACKET ON ERROR PRINTS 132. BYTE DATA PACKET ON A COMPARE 
ERROR, IF SELECTED. 


# ERRORS=DVC FATAL IF ‘EVL* SET == IF USER SETS EVL FLAG (EVALUATE) 
MODE), HRD OR SFT ERROR MESSAGES 


BECOME DVC FTL ERRORS AFTER WHEN 
THE NUMBER SPECIFIED IS EXCEEDED. 


ERROR INFORMATION 


ech “ee IS PROVIDED ON OCCURRANCE OF ERRORS AS OUTLINED IN 


PERFORMANCE AND PROGRESS REPORTS 


STATISTICS ARE TAPE PER SECTION 1.1 AT END OF PASS, CONTROL-C, OR 
UPON ENTERING A ‘PRI’ COMMAND. THEY CONSIST OF # BLOCKS WRITTEN AND READ, # OF 
DATA ERRORS, HARD OR SOFT. 


DEVICE INFORMATION TABLES 
CONSULT SECTION SUBTITLED ‘DATA BLOCK FORMAT’’ FURTHER ON IN THIS LISTING. 
TEST SUMMARIES 


INIT IS SENT TO DEVICE IF: 

1. INIT CODE IN SUPERVISOR IS EXECUTED 

2. INIT IS REQUESTED BY DEVICE AS A RESULT OF 
ERROR. 


INITIATES FIRMWARE DIAGNOSTICS AT DEVICE LEVEL (SELF TEST) 


SEEK TEST, SEEKS BOT ON BOTH TRACKS, THEN 
VERIFIES 60 IPS OPERATION TO SEEK EOT ON 
ON BOTH TRACKS,ENDING THEN AT BOT. 
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TEST 3: PERFORMS WRITE, THEN READ OF ADJACENT BLOCKS AT BOT 
WITH VARYING DATA, THEN SEEKS HALF WAY INTO REMAINING 
TAPE AND REPEATS THE ABOVE UNTIL EOT. 


TESTS 4-7: READS OR WRITES BLOCK # AS DATA INTO SUCCESSIVE BLOCKS 
ON TAPE, THE LENGTH OF WHICH IS DETERMINED BY SOFTWARE 
QUESTION #1: DEFAULT IS SHORT TAPE (8.).MINIMUM 
(8.) RESULTS IN TRANSFER OF 8. (OR 4 PER TRACK) $12. BYTE 
BLOCKS OF DATA PER READ (OR WRITE) OPERATION. THE 
ALGORITHM SWITCHES TRACKS REGARDLESS OF THE NUMBER 
BLOCKS SELECTED. DRIVE NUMBER IS ADDED TO RECORD 
AS DEFAULT,SO FOR TAPE INTERCHANGE 
TESTING, ANSWER (N) TO SOFTWARE (SW) QUESTION #2. 


NOTE: THE AMOUNT OF TIME SPENT _IN TESTS 4-7 IS QUITE 
LONG IF THE FULL TAPE (512.) IS SELECTED. 


TEST 4: WRITE TAPE 
TEST 5: READ TAPE 
TEST 6: WRITE VERIFY TAPE 
TEST 7: READ REDUCED TAPE 
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- TITLE PROGRAM HEADER AND TABLES 
-SBTTL PROGRAM HEADER 


-ENABL ABS,AMA 
. = 2000 


BGNMOD 


soe 
; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


POINTER BGNRPT ,BGNSW,BGNSF T ,BGNAU,BGNDU, 


HEADER CZTUU,A,0,3600.,1 


LS$REV:: 
LSDEPO:: 
LSUNIT:: 


007020 tte 
LSHPCP: : 


035752 . 
LSSPCP:: 


036130 4 LSSOF T 
002172 ewer ee 
002204 LSSPTP:: sions 
036522 a LSLAST 
: L$STA:: 6 
L$CO:: . 
LSDTYP:: ‘ 


LSAPT:: . 
LSDTP:: — 
LSDISPATCH 
L$PRIO:: . 
LSENVI:: 


000000 





PROGRAM HEADER 


406 

407 002122 
002122 
002122 


AND TABLES 


000000 
000000 


003 
003 


000000 
000000 


000000 


125 


3 
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065 


DESCRIP <TU58 PERF EXER> 


LSEXP1:: 
LSMREV:: 


LSEF:: 


L$SPC:: 
LSDEVP:: 
LSREPP: : 
LSEXP4:: 
LSEXPS: : 
LS$AUT:: 
LSDUT:: — 
LSLUN: : 
LSDESP:: 
LSLOAD:: 
LSETP:: 
LSICP:: 
LS$CCP:: 
L$ACP:: 
LSPRT:: 
LSTEST:: 
LS$DLY:: 
LSHIME: : 


LSDESC:: 


C$REVISION 
CSEDIT 


0 
0 


0 
L$DVTYP 
L$RPT 

0 

0 

L$AU 
L$DU 

0 
LSDESC 
ESLOAD 
0 
LSINIT 
LSCLEAN 
L$AUTO 
L$PROT 
0 

0 

0 


/TUS8 PERF EXER/ 
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PROGRAM HEADER 


409 002142 BGNPROT 


002142 
410 002142 000000 . 0 DEVICE CSR 
177777 . -1 NO MASS BUS 
177777 -WORD <1 :NO DRIVE 
ENDPROT 


LSPROT:: 


-SBTTL DISPATCH TABLE 


-++ 


: ir DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


DISPATCH 7 


. WORD 
LSDISPATCH: : 
WORD 


015222 
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DEFAULT HARDWARE P-TABLE SEQ 0010 
-SBTTL DEFAULT HARDWARE P-TABLE 
A te 
; THE DEFAULT HARDWARE P=TABLE CONTAINS DEFAULT VALUES OF 
; THE TEST=DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
: IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES. 


¥ BGNHW DFPTBL 
-WORD 1L10001-L$HW/2 
LSHW: : 
DFPTBL:: 


446 
447 002172 176500 :CSR_ ADDRESS 
448 002174 000300 D 300 VECTOR ADDR. 
Bp Ff TEST DRIVE ZERO AND ONE 
0 NOT PDT TYPE INTERFACE 





PROGRAM HEADER AND TABLES 
SOFTWARE P-TABLE 


482 
483 002220 
002220 


484 
485 002220 


L 
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-SBTTL SOFTWARE P-TABLE 


p++ 
THE SOFTWARE P=TABLE CONTAINS THE VALUES OF THE PROGRAM 
PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 


BGNSW SFPTBL 
L$SW:: 


; TAPE LENGTH 
PRINT STATISTICS AT EOP 
PRINT DATA BUF ON COMP. ERROR 
; COMPARE Pay 
z:ADD DR # TO DATA 
; THRESHOLD FOR EVL TEST 


~ WORD 
SFPTBL:: 


SEQ 0011 


L10002-L$sw/2 
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SOFTWARE P-TABLE SEQ 0012 


.TITLE GLOBAL AREAS 
"SBTTL GLOBAL EQUATES SECTION 
BGNMOD 


ptt 
; THE GLOBAL EQUATES SECTION nee PROGRAM EQUATES THAT 


; ARE USED IN MORE THAN ONE T 
544 
545 002220 EQUALS 
: : BIT DIFINITIONS 


: EVENT FLAG_DEF INITIONS 
; EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


EF .START== 32. : START COMMAND WAS ISSUED 

EF RESTART== : : RESTART COMMAND WAS ISSUED 

EF . CONT INUE== . > CONTINUE COMMAND WAS ISSUED 

F .NEW== 29: : A NEW PASS HAS BEEN STARTED. 
EF .PwR== 28. : A POWER-FAIL/POWER-UP OCCURRED 


+ PRIORITY LEVEL DEFINITIONS 
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GLOBAL EQUATES SECTION SEQ 0013 


000240 
000200 
000140 
000100 


= 
o 


ores 


000040 
000000 
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GLOBAL DATA SECTION SEQ 0014 


-SBTTL GLOBAL DATA SECTION 
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GLOBAL TEXT SECTION 


583 002220 
002220 
002220 


124 


125 


065 


-SBTTL GLOBAL TEXT SECTION 


> NAMES OF DEVICES SUPPORTED BY PROGRAM 
DEVTYP <TUS8 CONTROLLER> 


L$DVTYP: 


SEQ 0015 


‘ASCIZ /TUS8 CONTROLLER/ 
EVEN 
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GLOBAL SUBROUTINES SECTION SEQ 0016 
-SBTTL GLOBAL SUBROUTINES SECTION 

MACRO RET 


RTS PC 
. ENDM 


«MACRO PUSH -REG 
MOV REG,~(SP) 


. ENDM 
-MACRO POP,REG 
- ENDM 


MOV (SP)+,REG 


++ 
; THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES THAT 
; ARE USED TO LINK THE DIAGNOSTIC TO THE SUPERVISOR (TSTID). 


p++ 
; SWAPDR 
; SUBROUTINE TO DETERMINE IF TO TEST OTHER DRIVE (FOR ALL UNITS) 


; INPUTS: NONE 


; OUTPUTS: DR(R5) UPDATED TO TEST SAME OR OTHER DRIVE 
; CARRY SET IF SECOND PASS NECESSARY 


SWAPDR:: CLR FOR # DRIVE 1°S. 


R2 
002340 MOV #BLKTBL ,SWPTR 
1$: MOV @SWPTR,R5 
~ heals 


BN 3 
000060 ~ he pean :D1D DR. 0? 


ABORTED? 
;YES 


DIDN'T; NO ZERO 


000060 


004742 
002340 


#BIT9,OR(RS) 
DR(RS) 
SWPTR,#LSTDEV 
#2, SWPTR 

1$ 


Re 
5$ 


SETDR = SUBROUTINE TO GET DRIVE FOR 1ST PASS FOR EACH TEST 


ives; 1 SELECTED? 


YES, SWAP 
ONE MORE TO TEST 
:LAST DEVICE? 


:NO-POINT NEXT 
;DO 


— CARRY) ,MORE TO DO? 


:YES 
7RETURN 





GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


748 002342 012737 004724 002416 
749 002350 017705 000042 
750 002354 105065 000060 
002360 032765 000400 000060 
2 002366 001002 
753 002370 105265 000060 
754 002374 $16 44 002416 004742 


03004 
756 002404 062737 000002 002416 
757 002412 000756 


ey 002416 000000 


66 

767 002420 012737 004724 002512 
768 002426 017705 000060 

769 002432 004737 002460 

770 002436 yA 1h 44 002512 004742 


0 
062737 000002 002512 
0007; 


000102 
786 002470 012704 001036 
788 0024 162704 000002 
789 002502 001374 
790 002504 
791 002506 


792 002510 
793 002512 000000 


2$: 


3$ 
SE 


5* 
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INPUTS: 
OUTPUTS: 


: RET 
TPTR: WORD 


+ 


NONE 
DR(R5) IS SET TO TEST DRIVE O OR DRIVE 1 


#BLKTBL,SETPTR 
@SETPTR,RS 

DR(R5) ;PRESET 
> nesta :D0 DRO? 


;YES 
DR(R5S) ;NO-USE DRIVE 1 
SETPTR.MLSTDEV 


#2,SETPTR 
1$ 


> CLRALL = ee INPUT BUFFER FOR RESPONSE FROM UNIT. 
OUTPUTS: MALL UNITS BUFFERS CLEARED. 


: INPUTS: 
CLRALL:: MOV 
1$: ~ MOV 
“CALL 
= CMP 
_” BHIS 
" ADD 
BR 
2$: RET 
ptt 


MBLKTBL,CLRPTR ; INIT 
@CLRPTR,RS5 :GET DATA BLOCKS 


CLRBUF [CLEAR IT'S RECEIVE BUFFER 
CLRPTR,#LSTDEV :LAST DEV? 

#2,CLRPTR + ==>NEXT 

1$ > CONT INUE 


CLRBUF = CLEARS 1 UNIT'S INPUT BUFFER. 
INPUTS: RCVBUF(R5) IS BUFFER START 


; OUTPUTS: CLEARED AREA. 
CLRBUF:: PUSH RO 
PUSH R4 
MOV RCVBUF(R5),RO ;GET apene $s OF BUFFER 
MOV ARCBFSZ,R4 2 SIZE IN BYTES 
1$: CLR (RO) + LEAR IT 
SUB #2 ,R4 2. erres LESS 
BNE 1$ 
POP R4 
POP RO 
ET 


R 
CLRPTR: .WORD 


SEQ 0017 


GLOBAL AREAS 


MACRO M1110 


GLOBAL SUBROUTINES SECTION 


817 
818 002562 

819 
2566 
821 002572 
822 002574 

823 
824 002600 
002600 


825 
826 002602 
827 002606 
828 002610 
829 
830 002612 
831 


005037 


010140 


010142 
000002 


010162 
010140 
016354 


017530 


010142 


000020 
004742 


010142 


; INPUTS: 
; OUTPUTS: NONE 
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; SETUP = CALLED WITHIN EACH TEST :s INSERT BEGINNING ADDRESS OF THE 


TEST INTO ALL UNITS TEST 
NPUTS: TSTTOP LOADED WITH TEST ALGORITHMS STARTING ADDR. 


| 
; OUTPUTS: TSTPC(R5) FOR ALL UNITS 


DONE T DONE YET 
#BLKTBL,IDPTR ‘TABLE TOP ADDR 

@IDPTR,R5 ;DEVICE'S DATA BLOCK 
TSTTOP, TSTPC(R5): INSERT PC AE TOP OF TEST 
IDPTR ALSTDEV vES UNITS SET? 


2 
#2,1DPTR 7NO,GET NEXT POINTER 
1$ SET HIM UP 


IMPLEMENTS THE CALLS TO SEND i> he RECEIVE PACKETS, THEN 
ae DURING TEST RUN TIME. 


NXTST MAKE AND SEND - rd PACK TO ALL 
;UNABORTED UNIT 

DONE COMPLETE? 

2s ;YES 

GE TANS ;NO,GET ALL RESPONSES 
SUPERVISOR CHECK 


CHECK ALL RESPONSES 
CONTINUE TILL DONE 


SEQ 0018 
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GLOBAL SUBROUTINES SECTION SEQ 0019 


844 - TITLE MISCELLANEOUS SECTIONS 


TI 
Bs -SBTTL REPORT CODING SECTION 
874 002612 BGNMOD 
875 


++ 
; THE REPORT CODING SECTION CONTAINS THE 
; 'PRINTS'* CALLS THAT GENERATE STATISTICAL REPORTS. 


886 002622 
887 002624 
888 
889 002626 

002626 104422 C$BRK 
012737 004724 003240 MOV #BLKTBL ,RPTR GET 1ST DEVICE BLOCK 

PRINTS #STATHD HEADER 

012746 003242 y ASTATHD ,=(SP) 
Ht 000001 1,=(SP) 


010600 
104416 
062706 000004 


104422 
012746 003516 
000001 


BREAK :“C CHECK 
PRINTS #STHD2 32ND HEADER 


37°C CHECK 


002700 
895 002702 @RPTR,RS :GET DEVICE BLOCK 
896 002706 004000 #B1T11,aR5 [UNIT NOT TEST ED? 
897 002712 001131 2$ STRUE, DON'T PRINT STATISTICS 
898 [0K TO PRINT 
SSAVE STATUS WORD 
ar gRLUN RLUN [MASK UNIT NUM 
SOF TR(R5).R 
#177400,R GN-UNE 
3SOFT WRITE 
) : HARD READ 
HARDW(R5) RG ;HARD WRITE 
BIC #177400,R4 ; 
PRINTS #FMO,RLUN SSUMMARY/UNIT # 
RLUN,=(SP) 
#FMO.-(SP) 
#2,-(SP) 
SP_RO 


e 
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REPORT CODING SECTION SEQ 0020 
003004 104416 TRAP C$PNTS 
003006 062706 000006 ADD #6,SP 
910 003012 PRINTS #FM,40,WRTNO(R5S) ,RDNO(RS) ,<B,BDATA(RS)>,R1,R2,R3,R4 
003012 010446 MOV R4,-(SP) 
003014 010346 MOV R3,-(SP) 
003016 010246 MOV R2,-(SP) 
003020 010146 MOV R1,=(SP) 
003022 005046 CLR -(SP) 
003024 156516 000134 B1SB BDATA(RS) , (SP) 
003030 016546 000114 MOV RDNO(RS) ,=(SP) 
003034 016546 000110 MOV WRTNO(RS) ,=(SP) 
003040 012746 000000 MOV #0,-(SP) 
003044 012746 003372 MOV #FM,-(SP) 
003050 012746 000011 MOV #11,~-(SP) 
003054 010600 MOV SP,RO 
003056 104416 TRAP CS$PNTS 
003060 062706 000024 ADD #24 ,SP 
911 003064 116501 000123 MOVB SOFTR+1(R5),R1  ;SAME 
912 003070 042701 177400 BIC #177400,R1 7AS 
913 003074 116502 000125 MOVB SOFTW+1(R5),R2 ;ABOVE 
914 003100 042702 177400 BIC #177400,R2 i THIS 
915 003104 116503 000137 MOVB HARDR+1(R5),R3  ; TIME 
916 003110 042703 177400 BIC #177400,R3 :FOR 
917 003114 116504 000141 MOVB HARDW+1(R5),R4 ;DRIVE 
4 003120 042704 177400 BIC #177400,R4 ; ONE 
920 003124 PRINTS #FM,41,WRTN1(R5) ,RDN1(R5) ,<B,BDATA+1(R5)>,R1,R2,R3,R4 
003124 010446 MOV R4,-(SP) 
003126 010346 MOV R3,-(SP) 
003130 010246 MOV R2,-(SP) 
003132 010146 MOV R1,-(SP) 
1 005046 CLR -(SP) 
003136 156516 000135 BISB BDATA+1(R5) , (SP) 
003142 016546 000116 MOV RDN1(R5) ,~(SP) 
003146 016546 000112 MOV WRTN1(R5) ,=(SP) 
003152 012746 000001 MOV #1,-(SP) 
003156 012746 003372 MOV #FM,-(SP) 
003162 012746 000011 MOV #11,~(SP) 
010600 MOV SP, 
003170 104416 TRAP CSPNTS 
003172 062706 000024 ADD #24,SP 
921 003176 023727 003240 004742 2$: CMP RPTR,ALSTDEV sALL UNITS DONE? 
922 003204 103005 BHIS 3$ 7 YES 
<3 003206 062737 000002 003240 ADD #2,RPTR :NO-DO 
4 003214 000137 002700 JMP 1$ MORE UNITS 
927 003220 3$: POP R5 
928 003222 POP R4 
29 003224 POP R3 
003226 POP R2 
1 0032 POP R1 
932 003232 POP 
933 003234 ENDRPT 
003234 


L10003: 
104425 TRAP 


003234 C$RPT 
934 003236 000000 RLUN: WORD 


MISCELLANEOUS SECTI 
REPORT CODING SECTION 


ONS MACRO M1110 


935 003240 000000 
936 


937 003242 
938 003310 
939 
940 003354 
941 
942 
943 003372 
944 003446 
945 


946 003516 
of 003563 


8 
949 003626 
950 
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045 
110 
125 


040 
063 


040 
103 


RPTR: 


STATHD: 


FMO: 


FM: 


STHD2: 


. WORD 
ASCII 
eASCIZ 


JENA DR BLKS WR BLKS RD BDPAK / 
@DCHK/RD DCHK/WR DCHK/RD DCHK/WR2N@ 


/%AUNIT %D12%N/ 


RD1%A 2D5%A, ——-ADSZA, %D3%A. 


/%A 
/2D3%A. =%D3%A, 2D3%A. %D3%A. 2N/ 


/%A 
7RECOV RECOV UNRECOV UNRECOVZN/ 


/ 


SEQ 0021 
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INITIALIZE SECTION SEQ 00622 


-SBTTL INITIALIZE SECTION 


THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
; AT THE BEGINNING OF EACH PASS. 


BGNINIT 
LSINIT:: 


000240 : NOP : 
105037 004374 CLRB STR FOR STATS CLEAR 
READEF #EF. T START START COMMAND? 
000040 MOV #EF .START,RO 
TRAP CSREFG 
BNCOMPLETE INIT2 3NO 


BCC INIT2 
004374 I STRT zYES, SET START FLAG 
004724 : V WBLKTBL,DEVPTR ;SET ALL UNITS ABORTED: 
C : UNIT NUMBER 


004244 : @DEVPTR,RS iGE T iat? @ 


aR NSERT UNIT 
120000 #8iT15!81713, ars". ;SET ABORTED, HAL TED 


004000 #B81T11.aR5 :SET UNIT NOT TESTED 

R4 :*2 FOR LOOK-UP 
024310 MOV BUF TAL (R4) .RCVBUF (RS) iSETUP POINTER 1 TO UNIT'S 
010130 DEVPTR,ALSTDEV sLAST DEVICE DONE? 


000002 #2,DEVPTR 3NO-GET 
R4 NEXT DEVICE AND 
1$ 2 SERVICE 


000010 : #8. ,LSUNIT MAKE SURE NOT 
BH GE THRD TOO MANY UNITS 
0, TOMANY 3 TOMANY-REQUEST “C 


sEXIT 


#BLKTBL,DEVPTR ;INIT TABLE POINTER 
CLEAR DEVICE COUNTER 
@DEVPTR,RS GET STATUS WORD 
MOV R4,LSLUN :UNIT NUM. IN CASE ERROR 
GPHARD R4,R2 GET HARD INFO 


BNCOMPLETE 3$ 
BIC nie sUNIT IS TESTED! 
MOV 


MOV (R2)+,T TOVECT(RS)® 3GET ate + ADDRESS 
112265 MOVB (R2)+,DR+1(R5) SAVE UNIT SUMMARY 
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INITIALIZE SECTION SEQ 0023 


R2 :GET TO WORD BOUND 

(R2)+,PDTFLG | :AND GET PDT FLAG 
T14,aR5 SSET SEND BREAK FLAG 

W31T8,DR(RS) DRIVE 0? 


sYES 
#B1IT9,DR(RS) ;DRIVE 1? 
13$ ; 


OK 
0.NODRVS NEITHER?! 


sEXIT 


STRT zSTART COMMAND? 
14$ :NO, DONT CLEAR 

2 YES-CLEAR STATS 
WBLKEND ,R2 sR2-=>END OF STATS 
#WRINO,R1 FORM ADDRESS OF START: 


zR1-->START OF STATS. 
FORM # TO CLEAR 


CLEAR °EM 
; MORE ? 


g 
eB 


SESRe 


2$ sYES 
#B1T15'BIT13,aR5 :S 
RS -RCSR(RS) 

R3.RCDB(RS) 


He, 
; oXMSR (RS) 


SET NOT ABORTED NOT HALTED 
GET DEVICE REGISTERS: 


lolelelolelelelelolo) 
a mf fh Pf 
WONAUSWN—O 


;UNIT A PDT? 
SYES...RCDB=XMDB 
;ZERO DATA PATTERN 
“NO RETRIES 


SNBRSKSREKERVS EA BRS 


2NO REC 

zNO SUCCESS 

2NO 

s7~>NEXT DEVICE 
far ied UNIT NUMBER 
zYES, GP HARD THE NEXT 


010124 SYSTAT SYSTEM STATUS WORD 
FLGLOC :GET USER FLAGS 


—— 
or Oo 


-s -DEVPTR 
R4,LSUNIT 
1$ 


R PPSPSeereeeeees 


LN 
o 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


BRURU RCSB ES NRO RENTS 


S 
ES 


CSRFLA 
kO,FLGLOC 


88 


010150 5$: BLKER 3NO_ERROR 
002204 010126 SETLEN: MOV LENGTH, TAPLEN ;GET # OF RECORDS 

7 010126 A TAPLEN : # BLOCKS PER TRACK 
000200 010152 MOV e ata ty ty! otf 9S FART AT 200 


000200 010126 #200, TAPL ; K 128.? 
3$ ZNO-SWITCH TRACKS 2ND PASS 


SFESEE 
SRERe 


SN 
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INITIALIZE SECTION SEQ 0024 


046 004302 012737 000400 010152 MOV #400, SECREC 7YES=START AT 400 


004310 3$: ENDINIT 
004310 L10004: 
004310 104411 TRAP CSINIT 


71 
Ore 004312 124 117 117, TOMANY: .ASCIZ /TOO MANY UNITS MAX.=8 / 
ion 004342 123 105 114 NODRVS: -ASCIZ /SELECT AT LEAST 1 DRIVE / 


1076 004374 000000 STRT:: WORD 
1077 004376 000000 . PDTFLG::. WORD ;TUS8 IS IN PDT 
1078 004400 000000 FLGLOC: : .WORD SUSER FLAGS 


1080 
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INITIALIZE SECTION SEQ 0025 


1082 004402 BGNAUTO 
sents LSAUTO:: 
1083 0044 NOP :AUTO DROP ROUTINE 
1084 004404 SETVEC #4, ATRPHND,#PRIO7 :GET BUS TRAP VEC. 
004404 000340 #PRIO7,=(SP) 
004410 004512 #TRPHND , = (SP) 
004414 
000003 
000010 
004724 004510 #BLKTBL , TRPPTR ;GET TOP OF DATA BLOCK TABLE 
000044 1$: V [GET DATA BLOCK 
104000 BI eerie Bart ars” , :NOT TESTED OR ABORTED? 
000022 @RCSR(RS) :NO-VALID ADDRESS? 
NOP ES. ; «(TRAP IF NOT) 
004510 004742 2: CMP TRPPTR,ALSTDEV shore TO T 
000002 004510 ADD #2, TRPPTR = ON TO NEXT 
60 “GET IT 


BR : 
CLRVEC #4 sRESTORE 


sasseaaats 
Bu HUE 


000004 


‘ 


at 


88 
os 


ILLEGAL ADDRESS TRAP HANDLER: 
TRPHND: PRINTF #MSAUTO zSAY "AUTO DROPPED’ 


096 
1097 
1098 
1099 
1100 
He 
1108 
1104 


#MSAUTO, -(SP) 
#1,-(SP) 


SP. 
CSPNTF 
a) 


== 
Rawr 
cscs 


= 
3 
~N 


;GET UNIT # 
;MASK IT OFF 
;DROP HIM 


MMMM 


EURR 


MOV ars RO ; 
BIC #177770,RO : 
DODU ~=s- RO ; 


Es 


C$DODU 


SESeEeeeReee 


—.2 a ah ut 
as cab at 
SB QRS 


¥ 
~ 


RTI 
101 101 MSAUTO: .ASCIZ /AAUTO DROP: %N/ 


£ 
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MISCELLANEOUS SECTI 
SECTION 


CLEANUP CODING 
~SBTTL CLEANUP CODING SECTION 


p++ 
; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
; AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 


LSCLEAN:: 


Sa ot ts 
0 OGnNOouUfwnN- 


;STATS AT EOP? 
NO 


:YES 
TRAP 


a a ot 
NS 


4 a oo 4 DD ed ed ed ed 


V=BN VS 


004 
004 
004 
004 
004 
004 
004 
004 
004 


BS 
BRS 


CSCLEAN 
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DROP UNIT SECTION SEQ 0027 


-SBTTL DROP UNIT SECTION 


ptt 
; THE DROP=UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
; TO NO LONGER BE TESTED. 


L$DU:: 
;RO=UNIT NUMBER 
RO sSAVE IT 
R5 ;SAVE PRESENT UNIT POINTER 
:GET POINTER TO UNIT 


004737 004642 GETR5 
052715 120000 + ghahsichonoatee 


SET ABORTED, HALTED 
RESTORE PRESENT UNIT POINTER 
RETRIEVE UNIT NUMBER 


UMMM WI RR ERD 
WOONAWUEWN HOOONAWUSE 


0 RO 
PRINTB #ABOMSG,RO 
RO,-(SP) 


004674 #ABOMSG ,~ (SP) 
090002 #2,-(SP) 
SP RO 


C$PNTB 
000006 #6,SP 


L10007: ; 


004724 004672 GETRS: #BLKIBL,PTR 77->>UNIT 0 

000016 1$: MO @PTR,R5 ;GET STATUS WORD 
DEC RO ; CORRECT UNIT? 
BMI 2$ 7 YES 

000002 004672 ADD #2,PTR NO, -->NEXT 
ee 1$ : CONTINUE 


2s: 
PTR: . WORD 
104 ABOMSG: rly /%ADROPPED UNIT %D1%N/ 


ek td 8 2d 2d od 2 od 
me ek ed ed od od wd 
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ADD UNIT SECTION SEQ 0028 


-SBTTL ADD UNIT SECTION 


ptt 

; THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 

>; TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
TO THE TEST CYCLE. 


Ss SS 


BGNAU 


1223 

1224 004722 
004722 L10010: 
004722 104452 


TRAP 
1225 
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ADD UNIT SECTION SEQ 0029 


1368 - TITLE HARDWARE TESTS 
1273 004724 
1285 


BGNMOD 
-NLIST ME,BEX 
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SYSTEM MACRO DEFINITIONS SEQ 0030 


-SBTTL SYSTEM MACRO DEFINITIONS 


«MACRO SWAPIN 


. ENDM 


-MACRO SWAPOW 


~ENDM 
.MACRO TUWRIT PTRN,REC,BCNT.DR,VER, 2A, 2B, 2C, 2D. ?E,2F.2G, 2H, ?T 
T: MOV #STRBUF .RO ZMAKE PACKET 
#RSCMND . ARO > COMMAND 
#RSMSIZ 1(RO) ;PACKET SIZE 
SWR,2(RO) 
:VERIFY 1 OR 0 
“DRIVE # 
[MAINTENANCE 


Ww 


REC, 10. (RO) :WHICH RECORD 

#RSMS1Z,R1 PACKET SIZE PLUS 

(R1)+ AG AND COUNT CORRECTION 
ARSSNSZ, SNDENT(RED” PACKET SIZE TO SEND 
CHK SUM 0 ==> BUFF 


:R 
R1, (RO) :PUT CHKSUM IN PACKET 


T up EXPECTATIONS 
ARSCONT, XSELGERSS RESPONSE 
#1,X$CNT (RS) “FREMT Tu 
#1 .X$PKNM(R5) :# PACKETS EXPECTED 
RSVP SEND AND RETURN TO SCHEDULER 
#81712, aR5 [FOR LAST TIME 
BCNT,R2 [GET # OF DATA BYTES 
AS TRBUF RO “POINT TO TOP 
R2,4128. * START DATA PACKET(S) 


NN 2 SS SS SS 10 
—ODODONAUSWNM—-OO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


WWWNWWANWWWNWNWNNWNWWW 


WW cy 
Kaas 


R2,R1 

SOIT 12 ONS 
#128. ,R1 
R1,1(RO) 
R1,R3 
#RSDATA,aRO 
(RO) + 

PTRN, (RO) + 
R3 


INIWWNAIAIAAN WW 
RSESARAAS 
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WW 
viv 
000 


SSRSFERES 


WAWANWANNWNWAWWW 
BEPSCS SBS IS IIIS ISSF 


& 
eo) 


: 
; 
1 
1 
1 
1 

4 

“4 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
: 
; 
1 
1 
1 
: 
: 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Ww 
38 
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H: 
.~ENDM 


«MACRO TUSEEK REC,DR 


wore -RO 


R1,SNDCNT (RS) 
as. . SNDCNT(R5) 


CHK SUM é 

R1,(RO)+ ;CHKSUM INTO PACKET 
R1 SEVEN ON A BOUNDARY 
R1,(RO)+ BYTE BOUNDARY 

“tila dames LAST DATA PACKET? 


WRSEND .XSFLG(RS)” sYES-EXPECT END 
ARSNDSZ,X$CNT(RS) :OF THIS SIZE 
#1.X X$PKNM(R5) AND 1 PACKET 


SEND 
ARSCONT, (XSELG(RS) sEXPECT "CONTINUE 
#1,X$CNT(RS) 1 BYTE 
#1.X$PKNM(R5) = AND 1 PACKET 
RSVP ‘SEND PACKET 

+ AND RETURN TJ SCHEDULER 
#B1T10,aR5 ;RETRY 


YES 
#128. .R2 =NO, MORE DATA TO SEND? 
A YES 
NO 
sRETRY HERE 
am AGAIN? 


z7~>XMIT BUFFER 
:FORM MESSAGE PACK 
: THIS BIG 

SOP CODE IS SEEK 
:TO HERE 


: AND WHICH DRIVE 
MODIFIER 


ARSSSEK ,2(RO) 
— 


os FLAG + BCNT 

FOR CHECKSUM CALC 
CHK SUM ;RO=->TOP _R1=# OF BYTES 
R1, (RO) Z INSERT INTO PACKET 


#RSSNSZ,SNDCNT(R5) ;HOW MANY TO SEND 

#RSCMND .XSFLG(RS) ;EXPECT END PACK 

MRENDSZ,.XSCNT(RS) = COUNT WITH THIS 

#1. ,X$PKNM(R5) ;EXPECT ONLY 1 PACKET 
ND 


RSVP SE 
zAND RETURN TO SCHEDULER 


SEQ 0031 
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-ENDM 


-MACRO TURTRY REC,BCNT,DR,?A,?B,7C,2D,7E 


~ENDM 


D: 


#STRBUF ,RO 
#RSCMND aR 
#RSMS17.1(RO) 
ARSSRD, 2(RO) 
REC,10. (RO) 
DR, 4. (RO) 
3(RO) 


3(RO) 
BCNT ,8. (RO) 
rg tt 5. (RO) 
PRSMSIZ, R1 
(R1)+ 


ARSSNSZ, spent ripe” 


CHK SUM 
R1,(RO) 


BCNT,R1 
#X$FLG,R3 
R5,R3 


R2 

#RSDATA, (R3)+ 
#132. ,(R3)+ 
ates. 


A 

R2 
R2,XSPKNM(R5) 
#RSEND , (R3) + 
#RSENDSZ, (R3) 


RSVP 


-MACRO TUREAD REC,BCNT,DR,VER,?A, 2B, ?C,?D 


wSTROUF .RO 

#RSCMND . aRO 

man? 1(RO) 
#RSSRD, 2(RO) 

REC 10. {RO) 
DR, 4. ( 

me Pits 
Bcnt 8. “ERO? 
6. (RO) ” 


sFORM CMND PACK: 
;MESSAGE PACK 

; THIS BIG 

OP CODE 

; THIS RECORD 

;THIS DRIVE 

PRESET ti THRE SHOL D 
REDUCED? 


:NO 

; YES=CHANGE THRESHOLD 
3# BYTES DESIRED 
MAINTENANCE 


NO _ SEQUENCE # 
ty 


S_FLAG+COUNT INTO R1 
SET UP SIZE TO SEND 


. 
“p 


FORM CHECKSUM 
: INSERT IN PACKET 
SET EXPECTATIONS: 


: CALC 
TOFFSET OF 
ZABS. - ree. OF X$FLG 


7 PRESE 
hd PACKETS EXPECTED 
urs 


[AND EXPECT COUNT 
ZNEG it LAST TIME 
:LAST TIME! 

E— TO DO 


SEQ 0032 


# OF y+ PACKETS TO EXPECT 


[ADD ONE FOR END PACK TO TOTAL 


SAVE # PACKETS TO EXPECT 
SEXPECT AN END 
: THIS BIG-14. BYTES 


7 SEND 
AND RETURN TO SCHEDULER 


2 FORM CMND PACK: 
SSAGE 


THIS DRIVE 
VER yer 


= COUN 
7MAINTENANCE 
;NO SEQUENCE # 
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SYSTEM MACRO DEFINITIONS SEQ 0033 


#RSMSIZ,R1 PREPARE | 

(R1)¢4 OR CHECKSUM 
#RSSNSZ, snpenr (nis e sige TO SEND 
CHK 7FORM CHECKSUM 

RI ROD s INSERT CHECKSUM 


BCNT,R1 SET EXPECTATIONS: 
[CALC # OF DATA PACKETS TO EXPECT 
ome OF F ET 


Ss 
- ADDR. OF XS$FLG 
PRE SET 
:# PACKETS EXPECTED 
7L XSFLG 
;AND EXPEC 


Re 
ear (R3)+ 
R3)+ TED 
sNEG RESULT LAST TIME 
ST TIME 


E TO 00 
= ADD ONE FOR END PACK TO TOTAL 
SAVE # yoo TO EXPECT 
EXPECT AN END 
#RSNDSZ, (R3) THIS BIG-14. BYTES 


RSVP : SEND 
AND RETURN TO SCHEDULER 
#B1T10,aR5 sRETRY? 


REC,BCNT,DR YES 
D SANOTHER RETRY? 


-ENDM 
«MACRO TUSELF 
FORM COMMAND PACKET 


7FORM SIZES: 


(R1)+ * CHECKSUM 
#RSSNSZ ,SNDCNT (R5) ;TO SEND 
CHKSUM 7FORM CHECKSUM 
:INTO PACKET 
arden. XSFLG(R5)° ;EXPECT END, 


#RSNDS2 , X$CNT (RS) THIS BIG 
#1,XSPKNM(RS) —:AND 1 PAC 


: SEND 
RSVP RETURN TO SCHEDULER 
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VMUIMVIVIVIVI 
MINS HS a 
Mm—OV0ONOW 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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-MACRO TSTID 


ADDRES, ?A 


ADDRES, TSTTOP 
SETUP 

SETDR 

RUN 

_e 

SETUP 

RUN 


7 SAVE ADDR 


DRVS 


7BR NO 
zREINIT UNITS 
REPEAT TEST 
; DONE 
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DATA BLOCK FORMAT SEQ 0035 


« SBTTL DATA BLOCK FORMAT 


RS ==> TOP OF 1 OF THE 8 DATA BLOCKS (1 PER UNIT) DURING EXECUTION 
@R5 1S THE STATUS WORD CONTAINING: 


pt hh hgh 
BSGERK 


FF 


D 
MP STOR WRITE MACRO 
IT NOT BEING TESTED 
TRYING 


uw 
~ 
MEWN—O 


ION 
NORMAL /REDUCED THRESHOLD (MACROS) 
+ DATA COMPARE ERROR 

VERIFY OPERATION 
TYPE + een SENT ODATA 1CMD 


:B1T3 TU 
;B1T0,1 "2UNIT NO. 


BaRRRR ES 


STATUS 


DEVICE STATE 
;# OF RETRIES 


ERROR NUMBER FOR LOG 
STORAGE FOR REGISTERS USED IN TEST BODY 
STORED WITH S 

sRETRIEVED WITH SWAPIN 


YRALCUNYY 


MUMIA 


Mvivi 
ele) 


POINTER TO NEXT EXECUTABLE TEST INST. 
US ADDRESS 


Me 2S = WALRNWO 
SOALWO: = 


PLE SA SA tS 


SI3S 


[FOR MULTIPLE PAC 
[CONSECUTIVE XS$FLGS AND XS$CNTS 

:DR=0 OR 1; BIT8,9 DRIVE SELECTED BY OPERATOR 
[COUNTER FOR T RACK K NUMBER 

RECORD (BLOCK # 


sTEST MACRO REGIST 


be denerebsrenererone 
BAVSRG 


ER 
FOR sas ae PACKET 
BYTE USED 
DLV inet 
COMMAND CURRENT IN EVEN BYTE; BITIS=VERIFY OP. 
zPOINTER TO 542. PE Seren (4 DATA PAKS + END PACK) 


POINTER TO TOP OF P 
:POIN we TO CURRENTLY USED aris OR XSCNT 
3THE # OF 51 DRO 


Bees 


SElREE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


nhunnan nerunoun “uw @ nnnnnnnnnnhnnnnnn 
é 


- BYTE BLOCKS WRITTEN 
STHE # OF 512. BYTE BLOCKS WRITTEN DRI 
;THE # OF 512. BYTE BLOCKS READ DRO 


8 
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DATA BLOCK FORMAT 


133) 000116 3THE # OF 512. BYTE BLOCKS READ DR1 
159 zAND ERROR LOG Quesceeseseey 

SPLIT INTO BYTES: ! DRI ! bRO : 
1 ;THE 1ST SECTION OF NEVER FATAL: += 


1 597 4 . SO me ee OS On oe ee ee 


1599 2 OFFSET IN DATA BLOCK ERROR TYPE sERRCODE;MSG CODE;SUC. CODE 


3 *RESERVED* 
Hs fl READ ; sMSSFRD ;ESCKSM 
;SOFT WRITE is sMSSFWR ;ESSKSM 
RECIEVED INIT ; MSRNIT ; eens 

"7 *RESERVED* 


THOSE CODES WHICH HAVE N- TRIES BEFORE ABORT 


90. ; ’ -MSOV peeene 


92. 
94 


3 


® 


Sareea 


SESESRER 
8 


; SM AT HOST ;BDCHK ; 
3SEEK ERROR TOTAL;SKERR : 
WRITE PROTECT ;WRLOC ; 
;NO MOTOR 


AAAAAAAOCAO 
ed ed a as os es od ot 
WDONAULWN-—O 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


RROR :CMNDE 
ZBAD RECORD NO.:RECERR : : 
;SELF TEST ERROR;SLFER IMSSELF sekeeee 


WRONG SUC.CODE ;SUCOTL ;MSWRSP; «eeeneee 

; E SPONSE : CVB ;MSNRSP ;xeeenene 
: OTL SMSORSP ;eeeneeee 
foe :MSNOTP SESNCRT 

TIME OUT SEND;TOSNDB ;MSTOSN ;**eeeee8 


2 OFFSET OF oe oF STATISTICS (RESERVED) 


RESERVED ** 
fen RESERVED ** 
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DEVICE DATA BLOCK ALLOCATION 


~SBTTL DEVICE DATA BLOCK ALLOCATION 
;TABLE OF DEVICE DATA BLOCK ADDRESSES 


BLKTBL : 


LSTDEV: 
DEVO: 


BLKSIZ 


SEQ 0037 
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ERROR CODE EQUATES 


-SBTTL ERROR CODE EQUATES 


THE ERROR CODE OFFSET VALUES : 
USED BY LOG’ TO INDEX BY R5 AND INCREMENT STATISTICS 


Non Sm mB oA KN 


Nm 
ALMIOOALNMO 
*e ee 8s © & @ 
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ERROR MESSAGE DESCRIPTIONS SEQ 0039 
1691 .SBTTL ERROR MESSAGE DESCRIPTIONS 
169 ;THE TABLE OF REASONS (ADDRESSES) ABORT OCCURRED. ABNDX (R5) CONTAINS 
1694 [THE OFFSET OF THE REASON. IT'S ABSOLUTE ADDRESS IS RSNTAB + ABNDX(R5). 
169% 007044 007140 RSNTAB: MSNLOG 
1697 007046 007672 M$SFRD 
1698 007050 007732 MS$SFWR 
1699 007052 007354 MSRNIT 
1700 007054 007140 MS$NLOG 
1701 007056 010076 MSOVRN 
1702 007060 007222 MSCOM 
1703 007062 007772 MSHDR 
1704 007064 34 
1705 007066 007374 MSHCHK 
1706 007070 007124 MS$SKER 
1707 007072 007332 
1708 007074 007264 
1709 007076 007436 MSNIT 
1710 007100 007452 M$PART 
1711 007102 007474 MSUNIT 
1712 007104 007522 M$CMD 
1713 007106 007536 MSREC 
1714 007110 007202 MSSELF 
1715 907112 007556 M$WRSP 
1716 007114 007602 M$NRSP 
1717 007116 007616 M$QRSP 
1718 007120 007302 M$NOTP 
1719 007122 007650 M$TOSN 
721 - ;HERE ARE THE MESSAGES PROPER: 
1728 007124 123 105 105 MSSKER: -ASCIZ /SEEK ERROR/ :DEVICE COULD NOT READ HEADER 
1725 007140 123 131 123 MSNLOG: “ASCIZ /SYSTEM ERROR/ ;DIAGNOSTIC HUNG. BETTER RE-BOOT 
72 007156 102 101 104 MSBDA: “ASCIZ /BAD DATA IN PACKET/ HOST DATA CHECK FOUND ERROR, DEVICE MAY 
1729 067202 123 105 114 MSSELF: “ASCIZ /SELF TEST ERROR/ zMI CRO DIAGNOSTIC FAILED, BUT DEVICE COULD STILL 
1731 007222 102 191 104 MSCOM: :ASCIZ /BAD DATA W-O DATA CHECK’ ERR AT ly :PREVIOUS DATA CHECK 
1732 EVEN yERROR NOT DUE TO DEVICE READ OP. 
1733 007264 115 117 124 MSNOMO: .ASCIZ /MOTOR STOPPED/ ;DEVICE Pour NOT GET SIGNAL 
1734 EVEN >FROM TAPE OR MOTOR HUNG 
1735 007302 103 101 122 MSNOTP: “ASCIZ /CARTRIDGE NOT IN PLACE/";NO MEDIA OR BAD SWITCH 
173 007332 127 122 111 MSWPRO: -ASCI2 /WRITE PROTECTION/ : CARTRIDGE WRITE PROTECT TAB MISSING OR 
1739 007354 122 105 103 MSRNIT: -ASCI2 /RECIEVING INIT/ SPEVICE SENT INIT REQUEST 
1761 007374 110 117 123 MSHCHK: ASCIZ /HOST FOUND PACKET CHECKSUM ERROR/ gui EVICE SENT PACK WITH 
1743 007436 103 101 116 MSNIT: ‘ASCIZ /CAN'T INIT/ [DEVICE SENT BYTE OTHER THAN "'CONT*’ 
17 EVEN [DURING INITIALIZATION 
1% 45 007452 120 101 122 MSPART: -ASCI2 /PARTIAL OPERATION/ SEND OF MEDIUM ENCOUNTERED 
1747 007474 042 116 117 MSUNIT: :ASCIZ /*NON-EXISTENT’’ DRIVE/ ;DEVICE RECV"D TOO LARGE DRIVE NUMBER 


HARDWARE TESTS 
ERROR MESSAGE DESCRIPTIONS 


1748 

He 007522 102 101 104 
1751 007536 102 101 104 
2? 007556 127 122 117 
tery 007602 116 117 040 
1757 007616 111 116 104 
Te 007650 124 111 115 
10) 007672 122 105 103 
i 007732 122 105 103 
1765 007772 125 116 122 
1766 

4 010034 125 116 122 
1769 010076 104 114 126 
1770 


MSCMD : 
MSREC: 


MS$WRSP : 
MSNRSP : 
MSORSP: 
MSTOSN: 
MSSFRD: 
MSSFWR: 
MSHDRD : 
MSHDWR: . 
MSOVRN: . 
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SEQ 0040 


/BAD COMMAND/ 
/BAD RECORD NO./ 


DEVICE COULD NOT UNDERSTAND HOST 

DEVICE RECV"D TOO LARGE A RECORD NUMBER 

/WRONG SUCCESS CODE/ HOST COULD NOT DECIPHER CODE IN END PACK 

/NO RESPONSE/ TIME OUT WAITING FOR BYTE IN BUF ON DLV. 

\INDECIPHERABLE FLAG vst? HOST COULD NOT UNDERSTAND 1ST BYTE OF 

PONSE FROM TU AS PROPER PROTOCOL 

/TIME OUT ON SEND/ OLY READY NEVER WENT HIGH 

/RECOV. DATA CHECK ERR ON RD OP/ ;TUS8 RESPONDED WITH ‘DATA=CHECK’' 
;ERROR ON READ OP. ;HOST RETRY(S) SUCCESSFUL 

/RECOV. DATA CHECK ERR ON WR OP/ ;SAME BUT WR OR WR VERIFY OPERATION 

/UNRECOV. DATA CHECK ERR _ON RD OP/ ;TUS8 RESPONDED WITH *DATA-CHECK’’ 

ERROR ON READ OP. ;COULD NOT RECOVER 
/UNRECOV. DATA CHECK ERR ON WR OP/ 


SAME BUT WR OPERATION 
/DLV ERROR IN RECEIVE/ ;DLV ERROR 
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MISC STORAGE AND EQUATES SEQ 0041 
1772 -SBTTL MISC STORAGE AND EQUATES 
17h 
1775 010124 000000 SYSTAT: . WORD eareiee STATUS WOR 
1776 IT ne bse 1ST BYTE OF PACK RCVD 
1777 :BITOS = USED 
1778 sBITO4 = NOT USED 
1779 3;B1T03 = NOT USED 
1780 sBITO2 = NOT USED 
1781 :BIT01 = RETRY OCCURRING 
fa ;BITOO = CHKSUM IS ODD (TEMP STORAGE) 
1784 010126 TAPLEN: .WORD 24 RECORDS 
1785 010130 000000 DEVPTR: .WORD :->NEXT UNIT ADDRESS 
1786 010132 000000 RCFLG: .WORD TEMP STORE FOR GTBYTE 
1787 010134 000000 RCBCNT: .WORD : TEMP STORAGE FOR GTBYTE 
1 010136 000004 FTLNM: . WORD TRIES BEFORE ABORT 
1789 010140 000000 DONE: .WORD :1_IF TEST ALGORITHM COMPLETE 
1790 010142 000000 IDPTR: . WORD :PTR IN TESTID MACRO 
1791 010144 000000 TSTTOP: .WORD [POINTER TO CURRENT TEST 
1792 010146 000010 MXRTRY: .WORD NUMBER OF RETRIES, BEFORE ‘HARD’ ERROR 
1793 010150 000000 BLKER: .WORD ;RECORD # FOR ERROR REPORT 
1794 010152 000000 SECREC: .WORD sRECORD # TO START AFTER SWITCHING TRACKS 
ieee 010154 000000 PRNSIZ: .WORD :SIZE OF PACK FOR *PRNPAK'' 
1797 
1798 
1799 
Hy a : TIME OUT CONSTANTS: 
1802 010156 177777 C$NRDY: -=1 TIME OUT ON SEND DELAY (DLV NOT READY) 
1803 010160 000226 C$RCVB: 150. 245 SEC. MULTIPLIER REWIND TIME 
1804 :CAN BE OPTIMISED PER CPU 
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MISC STORAGE AND EQUATES 


RADIAL SERIAL CODES: 
: THE FLAG BYTE 
RSCMND 


S583 


‘END PACK SIZE: “ 
;MESSAGE PACK SIZE: 
RSMSIZ = 12 


DATA PACK SIZE: 
R$DASZ = 132. 
END PACK SIZE: 
RSDNSZ = RSDASZ+R$NDSZ 


000016 RSSNSZ = RS$MSIZ + 4 SIZE FOR SENDING COMMAND PACK 
001036 RCBFSZ== 4*R$DASZ+RSNDSZ- 24 DATA PAKS AND END PACK 
:IS SIZE OF RCV BUFFERS 


OA) a ad ed od 2 a 


310. BYTES FOR BYTE COUNT INSIDE CMND PACK 


al al al ah cl el al lh el a cl cl cal cel eld eal 
ct harper fe fer er fer phar per er per 4 
WN -OD0ONOUSWN—O 


00 00 CO 


RSSEND 
R$S$WR 


R$$RD = 
RS$$SEK 
R$$NOP 
RS$$NIT 
RSSSLF 


BAD COMMAND FROM HOST 
:NO ap llt 


NO DR 
OP COMPLETE SUCCESS 
PARTIAL OP 
SEEK ERROR 


RETRY 
3 WRI TE PROTECTED 
;MOTOR STOPPED 


: COMMAND ERROR 
BAD RECORD NUMBER. 
;TU CHKSUM 

SELF TEST ERROR 


177757 
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NXTST / THE SCHEDULER SEQ 0043 


-SBTTL NXTST / THE SCHEDULER 


: : NXTST - pide EACH UN-ABORTED UNIT'S TEST PROGRAM COUNTER 

; (TSTPC(R5)), EXECUTES THE TEST CODE THAT COMPRISES MAKING A 
3 PACKET AND SENDING IT. ACTION IS ROUND ROBIN. CHECKS FIRST 
; FOR ANY UNIT RETRYING AND IF SO SERVICES VM THAT UNIT THIS 
: PASS. INITS NON-RETRYING UNITS IF NECESSAR 

; INPUTS: (IMPLIED) DATA BLOCKS. 

; OUTPUTS: ERRSF IF ALL UNITS ARE ABORTED. 


012737 010130 NXTST: MBLKTBL,DEVPTR ;UNIT 0 TO START 
1$: MOV @DEVPTR,RS :GET DATA BLOCK 
002000 gees ETRY ING? 


ars 


2s ; NEXT UNIT 
000002 010124 Is #BIT1,SYSTAT ;NOT ABORTED-SET RETRY STATUS 
3GET hs: REGISTERS 
000020 S PC,aTSTPC(RS) ;DO TEST FOR 
BR NXTRET 3;THIS UNIT ONLY-EXIT 
010130 004742 : w=? 7 TRY NEXT UNIT? 


000002 010130 #2. ,DEVPTR YES ,->NEXT 
1$ GET BLOCK 


010442 NXTST2: ABONM s;HERE=NO RETRIES TO DO, NO UNIT ABORTED YET 
004724 010130 MO #BLKTBL,DEVPTR ;=-->UNIT 0 STORAGE BLOCK 
177624 PERDEV: @DEVPTR,RS R5=->NEXT DEVICE STORAGE BLOCK 


1893 010304 3$: aRr5 : ABORTED? 
1894 010306 100426 BM 4$ ;YES 
1895 010310 040000 #B1T14,aR5 7SEND BREAK? 
1896 01031 6$ :NO 

022640 DOBRK YES 

040000 #B1T14,aR5 ;SUCCESSFUL INIT? 
4$ ;NO ON TO NEXT UNIT 
ars : ABORTED? 


4$ :YES-ON TO NEXT UNIT 
3NO,GET DEVICE REGISTERS RO-R4 yoyo rt TEST PARAMETERS 


000020 ; PC aTSTPC(RS) : INITIATE 1 PACKET TRANSMISSION AND RETUR 
: ars ;ABORT ED? 


8$ 
010442 ABONM ZYES.. - ONE 
010130 004742 $ MP DEVPTR ,ALSTDEV ZALL TU'S TRIED? 


000002 010130 #2. ,DEVPTR NO THE ADDRESS+2=NEXT ADDRESS 
PERDEV :DO NEXT UNIT 

000010 010442 : #8. ,ABONM FALL ABORTED? 
NXTRET 
0. ,.NOMOR “YES! 


8 


& 
Ye) 


1 
1882 
1883 
1884 
1885 
1886 
1887 
bt a= 
90 


00.00 O0 
oO 
Nm 


SSee 


BESS3R8N33 
ERSRRRNERESS 


lelelelelelelelelelelelelelelele) 
ad at eh ad ad ad ah a ah ah ah ed ed ed ed 


LLLLLSSLL SS 
Who 
RERRERREREL 


CSERSF 
0 


= 
. e) 
— 


; SUPERVISOR BREAK 
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NXTST / THE SCHEDULER . 


104422 
000776 


SEQ 0044 


TRAP C$BRK 
BR 11$ 
NXTRET: RET 


ABONM:  .WORD ; THE NUMBER OF ABORTED UNITS 
114 114 NOMOR: erly 7ALL UNITS ABORTED! CNTRL=C/ 
-EV 


et ot 
Ono00000 


wo SS 
OOONAW 


000000 
101 
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TEST 1 / DEVICE SELF=DIAGNOSTIC EXECUTION SEQ 0045 


1386 -SBTTL TEST 1 / DEVICE SELF=DIAGNOSTIC EXECUTION 
1924 010500 BGNTST 
010500 Ths 
1925 010500 TSTID = #TST1 
010500 012737 010542 010144 MO ATST1,TSTTOP SAVE ADDR 
004737 002514 SETUP 7 INIT UNITS 
002342 :GET 1ST DRVS. 
002562 RUN ;D0 TEST 
002240 :GET NEXT DR. 
4 ;BR NO 2ND D 


002514 SREINIT UNITS 
002562 :REPEAT TEST 


010540 : 
1926 010540 ENDTST 

010540 L10011: 

010540 TRAP: CSETST 
1927 
1928 010542 TUSELF 
1929 010662 INC 


010140 DONE 


1930 010666 RET 
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TEST 2 /SEEK EOT,BOT 


0107 
1936 010730 

010730 

010730 
1937 010732 
1938 010734 
1940 010742 
1941 
1942 011072 
1943 011076 
1944 


04 
06 


— 


11 
11 
11 
11 
11 
11 
11 
11 
11 


01 
01 
01 
01 
01 
01 
01 
01 
01 


MMONN-— 
ABNMOAOf 


000400 
177777 


010732 
002514 


011114 


000002 
011114 
010140 


010144 


000064 


177777 
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~-SBTTL TEST 2 /SEEK EOT,BOT 


BGNTST 
TSTID 


ENDTST 


TST2: 
1$: 


CLR 
MOV 


TUSEEK 
ADD 
MP 


RECDAT: 
2 


AMTST2 


64$: 


R4 
RECDAT(R4) ,REC(R5) 
REC(R5) ,DR(R5) 


#2,R4 
RECDAT(R4) ,#=-1. 
1$ 

DONE 


;BOT 
:BOT OTHER TRACK 


:EOT 
sEOT OTHER TRACK 
;BOT AGAIN 


#TST2,TSTTOP 
SETUP 

SETDR 

RUN 

SWAPDR 

64$ 

SETUP 

RUN 


T2:: 


;SAVE ADDR 

; INIT UNI 

;GET 1ST DRVS. 
O TEST 


:BR NO 
sREINIT UNITS 
REPEAT TEST 
; DONE 


L10012: 


TRAP CSETST 


SEQ 0046 
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TEST 3 / HIGH ACTIVITY WRITE/READ SEQ 0047 


-SBTTL TEST 3 / HIGH ACTIVITY WRITE/READ 
BGNTST 
T3:: 
TSTID #TST3 


012737 011172 010144 ATST3,TSTTOP SAVE ADDR 
004737 SETUP INIT UNITS 


Oo 


= 
oO 
wi 
[+] 
oO 
233355355 55555 


jeleolelelelelelolo) 


*REPEAT TEST 
64$: ; DONE 


10013: 
TRAP CSETST 


3 
.*) 


ENDTST 


NSSSSRSRNSSHSSSS 


N 
Nm 


#100, TMP(RS) sINIT 
R4 3FOR INDEX TO DATA 
REC (RS) 


TST3PT(R4),PATTEN(RS) GET DATA 
DR(RS) ,PATTEN(RS) TADD DRIVE I.D. 
PATTEN(RS) ,REC(R5) ,#512. .DR(R5S) #0 
REC(RS) #512. .DR(R5) ,#0 

ZNEXT INDEX 

SEND? 

YES 


aS YS 3 Ss 


aS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


000002 #2,R4 
012510 acne 


011206 1$ 

: R4 :FIRST DATA 
000200 ADD #200,REC(RS) s ADJACENT RECORD 
001000 B1T #1000,REC(RS) :T0O FAR? 


YES 
011206 i$ 
001000 : #1000,REC(RS) BACK UP 
000066 TMP(R5) ,REC(RS) :HALF INTO REST OF TAPE 
000066 TMP (RS) south sHALF OF HALF 


ooooo CcCOOoCCoOoCoOSCOoO 


SSSESERLERLSR 
oS 


— 

a 

So 

rom Th) 
SRN 


= 
2 
x 
° 
iv 
S 
ro 


—b ed ed 

ER 

Jou 
oo 
—_) od 
aR 
3 


a 
eco 
Mn 


011206 
010140 


oooooo°0cKeo 
—2334353554 


000000 


SSSSSBRAREES3 
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TEST 3 / HIGH ACTIVITY WRITE/READ 


-SBTTL TEST 4 / WRITE SELECTED NUMBER OF BLOCKS 
BGNTST 


T4:: 
TSTID = #TSTS 

012737 012564 010144 #TST4,TSTTOP ;SAVE ADDR 

004737 002514 SETUP : INIT UNITS 
;GET 1ST DRVS. 
;D0 TEST 
3GET NEXT DR. 
‘BR NO 2ND DRVS 
sREINIT UNITS 
SREPEAT TEST 
; DONE 

L10014: 

TRAP CSETST 


ENDTST 


(RS) :START AT REC 0 
TAPLEN. TMP(RS) :# OF BLOCKS 
TRK(R OR 2 PASS COUNTER 
RECCRS), SPATTEN(RS) DATA DB RE CORD NO. 


0$ 
DR(RS) ,PATTEN(RS) SADD DRIVE ID 
PATTEN(RS) , weno © W512. -DR(RD) of -40 


ONE THIS TRACK? 
bs Sm 5 OTHER TRACK 
;NO-NEXT RECORD 


(R5 =NO-SET FLAG FOR NEXT PASS 
SECREC,REC(RS5) ;GET NEW STARTING BLOCK # 
TAPLEN, TMP(R5) RESET # OF BLOCKS 
i$ SAND EXECUTE. 


J 
TST4EX: DONE 
RE 


2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 


: DONE 
RETURN 





HARDWARE TESTS MACRO M1110 


TEST 5 / READ SELECTED NUMBER OF BLOCKS 
2019 
2020 

2021 013472 

013472 

2022 013472 

013472 


012737 010144 
004737 


2043 014250 
2044 


» SBTTL 
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TEST 5 / READ SELECTED NUMBER OF BLOCKS 


BGNTST 
TSTID 


ENDTST 


J 
TSTS5EX: 
R 


T5:: 

;SAVE ADDR 

; INIT UNITS 
:GET 1ST DRVS. 
*DO TEST 

:GET NEXT DR. 


#TSTS 
ATSTS,TSTTOP 
SETUP 


REPEAT TEST 
; DONE 


L10015: 

TRAP CSETST 
REC(R5) a" AT REC 0 
TAPLEN, TMP(R5) ;4 OF patty 


TRK(R “4 2 PASS COUNTER 
REC (RS) ,PATTEN(RS) :DATA IS RECORD NO. 
DRVCHK ZADD DR # 


10 NO 
DR(RS) ,PATTEN(RS) -  :ADD IN DRIVE ID 
REC(R5S ,#512. ,DR(RS) AO 
TMP (RS) :DONE THIS TRACK? 
iVES-GET OTHER TRACK 
T RECORD 


SNO-SET FLAG FOR NEXT PASS 
GET NEW STARTING BLOCK # 
;RESET # OF BLOCKS 

;AND EXECUTE 


SECREC ,REC(R5) 
Sar tn, Pena 


DONE : 
7RETURN 


SEQ 0049 
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TEST € * WRITE-VERIFY SELECTED NUMBER OF BLOCKS SEQ 0050 


-SBTTL TEST 6 / WRITE-VERIFY SELECTED NUMBER OF BLOCKS 
BGNTST 


Té6:: 
TSTID #TST6 
010144 MOV #TST6,TSTTOP ;SAVE ADDR 
SETUP ; INIT UNITS 
= ge GET 187 DRVS. 


SWAPDR :GET NEXT DR. 
64$ NO DRV 
SETUP SREINIT UNITS 
RUN REPEAT TEST 


L10016: 
TRAP CSETST 


REC(RS) sSTART AT REC 0 

TAPLEN, TMP(RS) id OF BLOCK s 

TRK(RS) OR 2 PASS COUNTER 
REC(RS) ,PATTENCRS) RATA 1S RECORD NO. 
DRVCHK ZADD DR #? 


10$ ‘NO 

DR(RS) ,PATTEN(RS) ZADD DRIVE ID 
PATTEN(RS) ,REC(R5) W512 *DR(RS) #1 
TMP (RS) ;DONE THIS TRACK? 
SYES-GET OTHER TRACK 
: T RECORD 


K(R5) :NO-SET FLAG FOR NEXT PASS 
SECREC,REC(RS) ;GET NEW STARTING BLOCK # 
TAPLEN, TMP(R5) ;RESET # OF BLOCKS 
1$ ;AND EXECUTE 


J 
40 TST6EX: DONE : 
R RETURN 
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TEST 7 / READ-REDUCED THRE SHOLD SELECTED NUMBER OF BLOCKS os SEQ 0051 
sre .SBTTL TEST 7 / READ-REDUCED THRESHOLD SELECTED NUMBER OF BLOCKS 
2075 015222 . BGNTST 
015222 T7:: 

2076 015222 TSTID w#rmst7 
015222 012737 015264 010144 MOV MTST7,TSTTOP SAVE ADDR 
015230 004737 002514 CALL = SETUP S INIT UNITS 
15234 004737 002342 CALL SETDR 3GET 1ST DRVS. 
015240 004737 002562 CALL RUN TEST 
015244 004737 002240 CALL SWAPDR ‘GET NEXT DR. 
015250 103004 BCC 64$ [BR NO 2ND DRVS *° 
015252 004737 002514 CALL = SETUP sREINIT UNITS 
015256 004737 002562 CALL = RUN SREPEAT TEST 
015262 64$: ‘DONE 

2077 015262 ENDTST 
015262 L10017: 
015262 104401 TRAP CSETST 

2078 015264 005065 000064 , TST?: CLR REC (RS) sSTART AT REC 0 

2079 015270 013765 010126 000066 MOV TAPLEN, TMP(RS) id OF BLOCK s 

2080 015276 005065 000062 -CLR TRK(R OR 2 PASS COUNTER 

2081 015302 016565 000064 000072 1$: MOV REC (R9) “PATTENCKS) DATA, 1S RECORD NO. 

2082 015310 005737 002214 TST DRVC ZADD’ DR 

2083 015314 001403 BEQ 10S “NO 

2084 015316 565 000060 000072 ADD DR(RS) PATTEN(RS) sADD DRIVE ID 

2085 015324 10S: TUREAD (R95 W512. .DR(RS) , m 

2086 015724 005365 000066 DEC THER ;DONE THIS TRACK? 

2087 015730 001404 BEQ 2$ i YES-GET OTHER TRACK 

2088 015732 005265 000064 INC REC(RS) SNO=NEXT RECORD 

2089 015736 137 015302 JMP ‘ s EXECUTE 

2090 015742 005765 000062 2s: TST TRK (RS) [DONE 2 TRACKS? 

2091 015746 001012 BNE TST7EX 7 YES-EXIT 

2092 015750 005265 000062 INC TRK (RS) SNO=SET FLAG FOR NEXT PASS 

2093 015754 013765 010152 000064 MOV SECREC,REC(RS) GET NEW STARTING BLOCK # 

2094 015762 013765 010126 000066 MOV TAPLEN, TMP(R5) :RESET # OF BLOCKS 

2095 915770 000137 015302 JMP 1$ SAND EXECUTE 

2096 015774 005237 010140 TST7EX: INC DONE ONE 

2097 016000 RET RETURN 
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RSVP / XOFF AND SEND A PACKET TO ALL DEVICES SEQ 0052 


3100 .SBTTL RSVP / XOFF AND SEND A PACKET TO ALL DEVICES 
2102 p++ 
2103 ; RSVP = SAVES TEST CODE PROGRAM COUNTER IN TSTPC(R5S) AND UNIT'S REGIS~ 
2104 : TERS. POINTS TO ''XOFF’’ THAT PRECEEDS PACKET IN XMIT BUFFER 
2105 : AND SENDS PACKET WITH XOFF. RETURNS TO SCHEDULER (NXTST) SO 
2106 : THAT OTHER UNITS PACKETS MAY BE FORMED, TO GET ALL UNITS WORKING 
2108 : INPUTS: (SP) CONTAINS UNITS PC TO SAVE SINCE RSVP WAS CALLED. THE 
2109 ; NUMBER PACKETS EXPECTED (X$PKNM), AND THE EXPECTED FLAGS AND 
sre : Bvie acount S OF EACH (X$FLG, X$CNT...) ARE LOADED BY TEST CODE 
2112 : OUTPUTS: CMDSNT = UPDATED WITH PACKET OP CODE 
2113 ; BLKER = RECORD NUMBER STATUSTICS UPDATED IF NOT RETRYING 
2114 : AND COMMAND PACKET SENT. 
2115 : SUCCS = PRESET CLEAR 
2116 : STATUS WORD @RS = BIT9 = DATA CHECK ERROR = CLEARED 
2117 : BITS = 'VERIFY'’ OPERATION 
2118 : BIT4 = 0 = DATA PACK 1 = CMND 
2119 : BITS = RD/WR OPERATION 
2120 : X$PTR = POINTS TO EXPECTED FLAG 
2121 é UPPER BYTE OF X$PKNM IS REPLICATED. 
2122 : PACKET POINTER (PKPTR) POINTS TO TOP OF UNITS RECEIVE BUFFER 
2123 ; AREA (RCVBUF). 
2125 
2126 016002 240 RSVP: NOP zFINISH TEST 
2127 016004 012665 000020 V (SP)+,TSTPC(RS) SAVE WHERE YOU WERE IN TEST BODY AND 
2128 016010 SSAVE TEST REGISTERS 
2130 ZCORRECT FOR RETURN TO SCHEDULER 
2131 016034 012700 024331 XFNSND: MOV #STRBUF-1,RO POINT TO XOFF 
- 2132 016040 005265 000070 INC SNDCNT (RSS ZONE MORE TO SEND, TOO. 
2133 016044 000402 BR SND SSEND XOFF +PACKET 
2134 016046 012700 024332 NOXOFF: MOV #STRBUF ,RO [FOR NORMAL PACKET SEND 
2135 016052 004737 016304 : CALL SNDBYT i SEND BYTE 
2136 016056 005715 TST ars sR5--> TO STATUS BLK 
2137 016060 10051 BMI! 6s SABORTED? YES...QUIT 
2138 016062 005365 000070 C SNDCNT (RS) *NO, SEND MORE 
2139 016066 001371 BNE SND + IF MORE TO SEND 
2140 016070 012700 024332 MOV #STRBLUF .RO + ==>BUF FER 
2141 016074 016537 000064 010150 MOV REC(RS) BLKER “PREPARE FOR RECEIVE 
gle 916102 156565 000032 000033 BISB X$PKNM(RS) ,XSPKNM+1(R5) ;REPLICATE LO. BYTE TO HI FOR GTPAKS, CHKANS 
2143 016110 005065 900076 CLR SUCCS(R5) sNO SUCCESS YET 
2144 016114 042715 001 BIC #B1T9,aR5 *NO DATA CHK ERROR YET 
2145 016120 016565 000102 000104 MOV RCVBUF (RS) ,PKPTR(RS) ;TOP OF RCV BUFFER GOES THE 1ST PACKET 
2146 016126 012704 0000 MOV WXSFLG,R4 FORM 
2147 016132 060504 ADD R5,R S ADDRESS 
e148 016134 010465 000106 MOV R4,X$PTR(RS) OF 1ST XSFLG 
150 616140 042715 20 BIC #8174 ars ;PRESET AS DATA PAK 
151 016144 121027 2 ,ARSCMND SWAS IT COMMAND PAK? 
138 016150 0010 BNE $ NO... 
15 016152 116065 900002 000100 MO (RO),CMDSNT(RS)” ;:YES=SAVE COMMAND 
134 016160 052715 BIS #B1T4.aR5 s1TS CMND PAK 
Si8e 016164 032715 002000 BIT #81710, aR5 ;RETRYING? 


HARDWARE TESTS 
RSVP / XOFF AND 


2157 016170 


2178 016274 
2179 


2180 016276 
aed 016302 


82 
2183 016304 
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SEND A PACKET TO ALL DEVICES 


000402 
112075 


000002 


000400 
022470 
000114 
000116 
000002 


000400 
000003 


000040 


000040 
022470 


000110 


000112 


010156 
000026 


000056 
021464 


000030 


000002 


000003 


5$: 


«6S: 
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SNDBYT: 
4$: 


1$: 


6$ 
2 (RO) ,ARS$RD 
4$ 


#B1T8,aR5 
WHCHDR 


8$ 

RDNO(R5) 

4$ 

RDN1(R5) 
2(RO) ,ARS$WR 
6$ 


#B1T8,aR5S 
3(RO) 


21$ 
#BIT5,aR5 
22$ 
#B1T5,aR5 
WHCHDR 


5$ 
WRTNO(R5) 
6$ 


WRTN1(R5) 


R1 
C$NRDY ,R1 
@XMSR (R5) 
2$ 


RO 


RO 

R1 

1$ 

ATOSNDB ,R4 
LOG 


:YES-DON'T UPDATE ANY STATS OR CONDITION 
;NO,A READ? 


° 
° 


(FOR HARD/SOFT LOGGING) RD/WR FLAG=0 
ET DRIVE 


‘DRIVE 0 

“DRIVE 1 

3A WRITE? 
‘NO 


YES, RD/WR FLAG=1 
: VERIFY T00? 


NO 
SYES-SET VERIFY FLAG 


7 (NO)-RESET VERIFY FLAG 
SGET DRIVE NO 

; CARRY=DR1 

:# BLKS WRITTEN DRO 


74 BLKS WRITTEN DRV1 
ETURN 


sENTER RO-->BYTE 
:GET TIMEOUT CONSTANT FOR NOT READY ERROR 
4 ed TO SEND? 


=NO, SAVE RO 
“MONITOR BREAK 


RESTORE 

: ABORTED? 

TYES,SET CODE FOR TIMEOUT ERROR 
“LOG IT 


3$ 30 
ual achat : 


SEQ 0053 
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GETANS / GETS RESPONSES ROUND ROBIN USING ‘‘XON’’ SEQ 0054 


-SBTTL GETANS / GETS RESPONSES ROUND ROBIN USING *XON"" 


ptt 
: GETANS = IF A UNIT IS RETRYING CLEAR HIS RECEIVE BUFFER (CLRBUF) AND GET 
3 HIS RESPONSE (GTPKS1), ELSE, CLEAR ALL BUFFERS (CLRALL) AND 

: GET ALL RESPONSES (GTPKS8). 

; INPUTS: NONE 

; OUTPUTS: SERVST = -1 IF NO RETRIES. 


2209 
2210 016354 0 GETANS: NOP 31 UNIT IF RETRY; ELSE ALL 
s$i3 pieeee 000002 010124 BIT > ahi eatin sRETRY? 


7YES 
177777 =—(017274 #-1,SERVST PRESET NO UNITS SERVICED 
002420 CLRA :CLEAR ALL INPUT BUFFERS 
016632 As REPLYS 


BR 2s sEXI 
2217 016406 002460 1$: sRETRY-CLEAR 1 UNIT ONLY 
2218 3R5=->UNIT BY NXTST 
2219 016412 016422 GTPKS1 :GET 1 REPLY 
2220 016416 2$: RET ; DONE 


2221 
2222 016420 GETPTR: .WORD 
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GTPKS1 / GET RETRY RESPONSE-1 UN SEQ 0055 


-SBTTL GTPKS? / GET RETRY RESPONSE-1 UNIT 


: GTPKSI - SENDS XON TO UNIT, GETS FLAG BYTE (IF ANY), CHECKS IF IT IS 
3 WHAT WAS EXPECTED. IF IT IS, USE EXPECTED BYTE COUNT. IF 

: NOT, CHECK IF PREMATURE~END PACK OR (SINCE MAINTENANCE MODE) 
: IF IT'S A PREMATURE DATA PACK. ADJUST COUNT, GET REST OF 

3 tenis gi AND REPEAT ABOVE UNTIL NO MORE PACKETS. 

; INPUTS: NONE PASSED. 

; OUTPUTS: SYSTAT UPPER BYTE = FLAG BYTE RECEIVED 


GTPKS1: NOP 3RS->THE UNIT 
000034 MOV AX$FLG,R3 : THE OFFSET VALUE OF FLAG 
R5,R3 FORM THE ABSOLUTE ADDRESS 
;R3-->ADDR. OF EXPECTED FLAG 
000002 ;R1=->ADDR. OF EXPECTED COUNT 
016630 ;RO=ADDRESS 
2242 016444 016304 i SNDBYT 3XON THE DEVICE 
2243 :*** TIME CRITICAL 
2244 016450 ; RCVBUF(R5),RO  :***==> TO THE BUFFER 
3 X$PKNM+1(R5),R2 :***GET THE # OF PACKETS TO RECEIVE 
#177400 ,R2 ;***S IGN UN-EXTEND 
aR1,RCBCNT ;***HOW MANY BYTES IT SHOULD BE 
@R3,RCFLG ;x**WHAT THE FIRST BYTE SHOULD BE 
TBYTE ; se *eGET THE ALL IMPORTANT FLAG 
7 a i — 


;¥ 
RO -> BYTE RECIEVED 

010125 @RO,SYSTAT+1 SAVE IT AS FLAG BYTE 

010132 MPB @RO,.RCFLG :1ST BYTE WHAT WAS EXPECTED? 


:YES 
000002 1 tetas :NO, WAS IT END PAK? 


000016 010134 #RSNDSZ,RCBCNT YES, USE END SIZE FOR COUNT 
000001 #1,R2 AND ASSUME IT*S LAST PACKET! 
BR : CONT 1 NUE 7 VE 
000001 : @RO ,ARSDATA [WAS IT DAT 
4$ :NO, CHKANS MAY FIND INIT.. 
000204 010134 #RSDASZ,RCBCNT YES, SET FOR DATA PAK SIZE 
R2 ZONE MORE PACK THAN EXPECTED (END PACK) 


: RO sRESTORE TO -> NEXT BYTE 
010134 2 — i THAT'S ONE LESS BYTE TO GO 


E 2D 
017300 GTBYTE GET REST OF PACKET 
000074 RROR 


DLV(R5) 
4$ :VESPALL OVER 
100000 7) lal ate ere ABORTED 


7 THEN QUIT 
5$ CONTINUE RECEIVE 


2275 
2276 016614 005302 : R2 ONE LESS PACKET TO GO 
Sho 016616 4$ :MORE PACKETS IN TRANSACTION? 


2279 016620 022121 (R1)+,(R1)+ ‘POINT TO NEW EXPECTED COUNT 
2280 016622 022323 (R3)+,(R3)+ SAND FLAG, 
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GTPKS1 / GET RETRY RESPONSE=1 UNIT SEQ 0056 


2281 016624 000717 BR 1$ sAND RECEIVE, 
ssee 016626 4$: RET ; RE TURN 


2284 016630 020 EXON:  .BYTE  R$XON 
2285 016631 023 EXOFF: .BYTE RSXOFF 
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GTPKS8 / GET RESPONSES (NO RETRIES) SEQ 0057 


-SBTTL GTPKS8 / GET RESPONSES (NO RETRIES) 


te 
; GTPKS8 = SET ALL_ABORTED UNITS SERVICED (SERVST: BIT POSITION). UNTIL 
: ALL UNITS SERVICED (SERVST=0), IF NO MORE PACKETS, SET UNIT 

: SERVICED, ELSE, GET A FLAG BYTE FROM UNIT, DECREMENTING OTHE 

; NUMBER OF PACKETS LEFT. CHECK TO SEE IF EXPECTED FLAG, 

: ADJUST COUNT IF NOT, GET REST OF PACKET. IF WAS DATA PACK, 

: SEND an. TO ENHANCE THROUGHPUT AND GO ON TO NEXT UNIT 


CIF 
; INPUTS: IMPLIED IN DATA BLOCK POINTED BY R5. NONE PASSED. 
; OUTPUTS: NONE 


GTPKS8: NOP GET ALL UNITS RESPONSES XOFF IF DATA PAK (THROUGHPUT) 
017276 MOV ABLKTBL,GTIPTR ;=>1ST 
GTAGIN: QGTPTR.R5 :GET DATA BLOCK 
B lla ;@R5 ABORTED? 


NO 
017210 SETSRV SYES-SET' pony isee" AND 
BR GTDOWN [ON TO NEXT UNIT 
000033 : Poot (R5) NO, ANY PACKETS LEFT? 


BN YES 
017210 SETSRV *NO=HE'S DONE 
BR TDOWN S0 oN TO NEXT UNIT 
000033 : ASPKNM+1 ( R5) NOW ITS ONE LESS PACKET 
000106 010132 MO @X$PTR(RS),RCFLG ;GET EXPECTED FLAG 
000002 000106 #2, X$PTR(R5) :==> COUNT 
000106 010134 SxSPTRURS) -RCBCNT AND EXPECTED COUNT 
2316 016724 016630 #EXON,RO ->" XON 
2317 :ee*TIME CRITICAL 
*SEND IT 


2318 016730 004737 016304 SNDBYT oe 
000104 PKPTR(R5) ,RO eat tr 1ST BYTE GOES 
017300 GTBYTE : 


;e*eGET IT 
100000 #B1T15,aR5 ; ABORTED? 
4$ :NO=CONTI NUE 
000033 X$SPKNM+1 (R5) ;YES-NO MORE PACKETS EXPECTED 
GTDOWN [ON TO NEXT 
: RO z7~>BYTE JUST RECEIVED 
010125 MOVB @RO,SYSTAT+1 7SAVE_IT 
010132 @RO,.RCFLG sis 11 WHAT EXPECTED? 


BE GTOK 
000033 : XSPKNM+1 (R5) NO, MUST BE us ~— 
000002 CMPB $00. ARSED ;MAYBE AN END P 


:NO 
000016 010134 5" atmemmal 7 YES, Ze Se Snore COUNT 
000001 : @RO ,ARSDATA ee IT DATA? 
T NO, ALL OVER, CHKANS WILL INIT UNIT 


G 
000222 010134 A#RSDNSZ ,RCBCNT :VES. USE COUNT OF DATA + END PAK SURE TO FOLLOW 
GTUM: RO WHERE TO STUFF THE REST 
010134 DOWN 


017300 GTBYTE 
100000 IT #B1T15,aR5 
TDOWN 


00103 BNE GTD iYES 
2343 017054 005765 000074 DLV(R5) BUT DLV ERROR? 
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GTPKS8 / GET RESPONSES (NO RETRIES) SEQ 0058 


2344 017060 001765 5$ :NO 
105065 000033 X$PKNM+1 (R5) :YES=LAST TIME 
000431 BR GTDOWN ON TO NEXT 


005200 3 RO sNEXT BrTES? IN BUFFER 


010134 $: RCBCNT j 
2$ :NO=ALL DONE 


017300 GTBYTE 7 YES-GET 5t! 
100000 #B1T15,aR5 3 TIMEOUT? 


BN GTDOWN YES 
000074 DLV (RS) Z ERROR? 
000033 XSPKNM*1 (RS) “LAST TIME 
x 
000001 000104 : ARSDATA, APKPTR(RS) :WAS DATA? 


LL DONE 
000104 yf PKPTR(R5) ZSTART OF NEXT PACK NEXT TIME 
016631 #EXOFF ,RO :XOFF AND SEND TO 

016304 CAi SNDBYT SENHANCE THROUGHPUT 

000002 000106 : #2. ,X$PTR(R5) NEXT X$FLG FOR NEXT TRY 
017276 004742 CMP aaah 1+ ry ONE CYCLE ALL UNITS? 


:YE 
000002 017276 NEXT UNIT 
00621 BR CONTINUE RECEIVE 
105737 017274 : SERVST DONE SERVICING ALL PAKS 
2369 FROM ALL UNITS? 
2370 017204 001212 GTPKS8 NO, KEEP TRYING 
pla 017206 sVES. 


2372 
2373 017210 SETSRV: P RS :SET UNIT SERVICED 
011505 @R5,R5 :GET STAT Wo 
2705 177770 #177770,R5 [MASK UNIT # 
017254 MOV #SRVTBL RO :->TOP OF BIT TABLE 
R5 IGHT ONE? 
2$ “YES 
000002 #2.R0 [NO, =>NEXT 
R5 :1 LESS 
1$ = CONT INUE 
017274 : aR0, SERVST *MOW IT DOWN 


RERRSAVSR 


Nm 


RETURN 
SRVTBL: . :BIT POSITION LOOKUP TABLE 


2395 017272 
396 


2397 017274 SERVST: .WORD 
2398 017276 GIPTR: .WORD 
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2400 017300 
2401 


2410 017342 
2411 
2412 017344 
2413 017350 
2414 
2415 


2416 
2417 017352 
2418 017356 
2419 017362 
2420 017366 
2421 017372 
2422 017374 
2423 017400 
2424 017404 
2425 Dg 
017406 


2426 017410 


2450 017526 


MACRO M1110 12=JUN=79 12:23 PAGE 39 
GTPKS8 / GET RESPONSES 


005037 
013704 


005337 
001357 


010037 


000000 
000000 


(NO RETRIES) 
017524 
010160 
000022 


GTBYTE: CLR 


1$: 
000024 000074 
000074 

000074 


000074 


017524 3$: 


017526 


000022 


017524 
017524 


016630 
016304 
017526 


017526 
000074 


017526 
017524 


000050 

021464 
4$: 
GBIMP: , 
GBIMP2: .WORD 


; TIMEOUT REGISTER 
SReABYS ERROR CONSTANT (MULTIPLIER) 
READY? 


C$RCVB,R4 
— 


@RCDB(RS), a 
DLV(R5),(RO)+ ;COPY 
DLV(R5) s ERROR? 


4$ 
DLV(R5) 
4$ 


i. ERROR + BYTE 
BYTE TO BUFFER 


7 YES-EXIT 
NO=RE SET 
sAND EXIT 


GBTMP :DEC T.0. CONSTANT 
1$ STILL VALID 


DURING LONG SEEK OR REWIND 

RO,GBIMP2 :RO MUST BE PRESERVED! 
MEXOFF ,RO sQUIET THE DEVICE 
SNDBYT [BY SENDING XOFF 
oom — SLOP OVER? 


YES 
SNO-WAIT A WHILE 
DONE WAITING? 


SYES-NO SLOP OVER 
START DEVICE TALKING 
*RESTORE RO 
:END KLUGE 
“RESTORE RO 

} :GET ERROR + BYTE 
:COPY BYTE TO BUFFER 


7 YES-EXIT 
;NO=CLEAR 


EXIT 
SAGAIN SAVE RO 
;RESTORE TO fALKING STATE 
;RESTORE RO 
; DONE 
3; TIMEOUT? 
1$ NO 
#TORCVB,R4 YES 
LOG 3 
;RETURN 


0 : 
0 


SEQ 0059 





HARDWARE TESTS 
| CHKANS / CHECK 


2461 
2462 017530 
2463 
2464 017532 


2467 
2468 017546 
2469 
2470 017550 


2478 017612 
2479 

arty 017614 
2482 017616 


MACRO M1110 
DEVICE(S) RESPONSE 


000240 
032737 
001403 
004737 
000422 


012737 


000002 
017620 


004724 
000034 
100000 


017620 
017616 


000002 


000000 


010124 


017616 


004742 
017616 


= 12:23 PAGE 41 


~SBTTL CHKANS / CHECK DEVICE(S) RESPONSE 


; * CHKANS - AS 


; INPUTS: 
; OUTPUTS: 


CHKANR: RET 
CHKPTR: .WORD 


IN are * 


ABORTED UNiT 


#BIT1,SYSTAT 
CHK8 

CHKPKS 

CHKANR 

#BLKTBL ,CHKPTR 
@CHKPTR,R5 
#B1T15,aR5 

3$ 

CHKPKS 
CHKPTR,ALSTDEV 
CHKANR 
#2,CHKPTR 

2$ 


IF RETRYING DO ONLY 1 UNIT ELSE DO ALL NON-~ 


IMPLIED SYSTAT BIT1 (RETRYING) 
NONE PASSED. 


:IF RETRY THEN CHECK ONE 
HAS CHECK ALL 


sRET RYING? 
;NO DO NORMAL 
YES DO BAZARRE WITH 
*R5 => UNIT 
STALL DONE 


KNOW ... TOP OF 


YOU K 
:GET a S BLOCK ADDRESS 
; ABORT ED? 


YES 
“NO, DO THIS GUY 


TALL DONE? 


3VES 
NO, -->NEXT DEVICE 
DO DA 


TABLE 
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CHKPKS / DECIPHERS RESPONSE OF UNIT POINTED TO BY RS / 


-SBTTL CHKPKS / DECIPHERS RESPONSE OF UNIT POINTED TO BY R5 / 


: * CHKPKS ~ FOR UNIT R5 AND FOR ALi PACKETS, CHECK TO SEE IF PACKET IS DATA OR 
: END PACK, CHECK CHECKSUMS, COMPARE DATA IF DATA PACK, CHECK 

: SUCCESS CODE IF END. IF UNKNOWN PACKET TYPE, CHECK FOR INTERFACE 
; ERROR. IF "CONT INUE FALL THROUGH. IF ‘‘INIT’’ SET ‘'SEND 

: BREAK'' FLAG. L *LOG'’ WITH R4=ERROR NUMBER IF ERROR. 
:; INPUTS: IMPLIED BY PREVIOUS ROUTINES. 


CHECKSUM ERROR 


; OUTPUTS: ERRORS =- 
~ UNKNOWN FLAG - ERROR 
- DATA COMPARE ERROR 


99 
00 017620 000240 CHKPKS: NOP sCHECK WHAT WAS RECIEVED 
000102 MOV RCVBUF(RS),RO  :GET BUFFER ADDR. 
X$PKNM(R5).R2  :AND # OF PACKETS EXPECTED 
AXSFLG,R3 ;THE OFFSET VALUE 
RS,R3 "R3-=>THIS UNIT X$FLG AGAIN 
R3_R1 ‘COPY TO R1 
#2.R1 [R1-=>X$BCNT FOR 1ST PACKET 
RO,PKPTR(RS) - :POINT TO PACKET 
aRO,SYSTAT+1 SSAVE RCV'D BYTE 
@R1.RCBCNT ‘GET COUNT 
010132 @R3.RCFLG SAND FLAG 
@RO,aR3 '1ST BYTE=EXPECTED? 
5$ UH OH 


000020 ARO ,ARSCONT :OK, IS IT 1 BYTE? 

7$ 7YES...ONTO NEXT PACK 

7NO, SO > 1 BYTE (NEVER EXPECT pl 

010134 MOV RCBCNT ,R4 SEXPECTED, SO COUNT MUST BE RIGHT 

~(R4) ;ADJUST FROM RECEIVE COUNT TO COUNT FOR CHECKSUM 
022600 CKCKSM 3 CHECK CHECKSUM 

2s NO CARRY...NO INCORRECT 
000022 #BDCHK ,R4 ERROR 
021464 LOG :LOG IT 

R ON TO NEXT PACK 


7$ 
000002 : #RSEND . (RO) ZEND PAK? 


BN NO 
020154 CHKEND 7 YES=CHECK 
000001 #1,R2 sLAST PACKET 

BR sAND FALL THROUGH 
000001 : crates DATA PAK? 


BNE :NO : 
023400 COMPAR 2 YES~CHECK DATA 
BR 7$ sALL DONE? 


017762 040000 : #B1T14,aR5 :SET "DOBREAK* FLAG 
017766 MO MOTL.R4 OUT TO LUNCH 
017772 DLV(R5) 7AH -BUT DLV ERROR? 


536 017776 20$ 
7 020000 000012 #OVRN,R4S YES-USE CORRECT ERROR # 
021464 208: LOG TALLY 
BR 8$ ; DONE 


HERE CHECKS UNEXPECTED RESPONSE 
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CHKPKS / DECIPHERS RESPONSE OF UNIT POINTED TO BY R5 / 
2542 
2543 020012 000004 5$: e oe fo ha 
040000 #B1T14,aR5 + YES~SET *DOBREAK' FLAG 


000006 ARCINIT ,R4 ;_WE GOT AN INIT 
021464 LOG ; TALLY IT 


8$ 
000001 : ARSDATA, aRO :DATA PAK? 


000204 MOV #RSDASZ ,R4 YES, USE DATA SIZE 
-(R4) sADJUST FOR CHKSUM 
022600 CKCKSM sAND_ CHECK 
10$ ; GOOF 
023400 COMPAR 20K, HOW'S THE DATA? 
EXPECTED END, GOT 
:DATA + END. 


; E 
2558 020064 000204 ARSDASZ,RO ;POINT TO END PACK 
$225 020070 000666 BR 1$ CHECK IT, USE SAME X$FLG 


2561 020072 000002 : ARSEND , (RO) 7 END? 
520g 020076 001331 4$ ;NO-OUT TO LUNCH 


2564 020100 000016 ARSSNSZ ,R4 YES, TOTAL SIZE MINUS 

2565 020104 -(R4) :TWO (THE CHKSUM) 

2566 020106 004737 022600 :CHECK IT 

2567 020112 1 :00PS 

524 020114 004737 020154 :OK,NOW TEST SUC. CODE 

$20 020120 sALL DONE 

2572 020122 000022 : #BDCHK ,R4 ; CHECKSUM ERROR 

2573 020126 004737 021464 LOG 

$o5e 020132 0004 BR 8$ sEXIT 

2576 020134 : R2 :NO. OF PACKETS LEFT TO CHECK 
8$ sALL DONE 

010134 RCBCNT ,RO POINT TO NEXT PACKET 

(R1)+,(R1)+ a TO ae ete COUNT 
(R3)+,(R3)+ D EXPECTED FLAG 

2581 020150 000636 BR 1$ TRY ANOTHER, THEYRE SMALL 


2582 
2583 020152 : ; RETURN 
2584 


SSRASTS 
NEUINO 


NN 
WRIWS 
NeNSSWOO 
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CHKEND / CHECK SUCCESS AND DETERMINE RETRY STATUS /- 


-SBTTL CHKEND / CHECK SUCCESS AND DETERMINE RETRY STATUS / 


CHKEND 2 iv Thee gh SUCCESS CODE AND IF 0, PRINT RECOVERED, _ 
SOFT ERR END RETR IF NOT 0 AND WAS STILL ‘DAT 
DETERMINE WHE THER TO CONTINUE ANOTHER RETRY OR 
LOG ''UNRECOVERABLE’’ ERROR 


IF NOT RETRYING: eGHECK IF DATA CHECK ERROR SUCCESS. IF SO, 
ODE. NONE PAS 


INPUTS: IMPLIED B IOUS C ASSED. 
OUTPUTS: RETRY (SYSTAT BIT 1), (BIT10 aR5) SET ¥ RETRYING. 
- DATA COMARE ERROR (BIT6 @R5) CLEARED 


- 
‘ 
‘ 
Py 
° 
4 
Py 
; 
: 
° 


2601 
2602 020154 CHKEND : an RO ;RO --> END PAK 


2603 020156 R4 
2604 020160 032737 000002 010124 1$: #B1T1,SYSTAT RETRY ING? 
2605 020166 CHKREE ; YES-BRANCH 
cone 020170 021154 CHKSUC :NO, my SUCCESS CODE 
2608 020174 100000 #B1T15,aR5 ABORT ED? 
2609 020200 1402 3$ 3NO, CONT INUE 
2610 020202 000 020660 CHKRET ZYES, EXIT 
000077 : SUCCS+1(R5) NO; HOW'D WE DO? 
BNE CHKERR :NOT SO GOOD. 
000100 ~ ia ati ee HOST FIND DATA PAK ERROR? 


020660 CHKRET :NO 
000014 : #BDCOM,R4 YES; JUST BAD DATA-NO DATACHK ERR 
021464 LOG BAD DATA IN PACKET 
020660 MP CHKRET T 
te -aR5 :BAD SUCCESS; TU DATA CHK ERROR? 


020660 CHKR NO, ALL DONE. 
002000 1$: #81110, aR5 7 YES-START RETRY 
000001 000002 MOV #1 ,RETRY(R5) 3CALL IT 1ST 

ARTRYN,RETRY(R5) ;** PRINT ** 
000002 RETRY(RS) ,~(SP) 
021040 ) 
000002 


000006 


BR CHKRET L_DONE 
021154 : CALL CHKSUC FRETRYING. GET SUCCESS 
000077 TSTB SUCCS+#1(R5) : SUCCESSFUL YET? 
BNE UNSUC NO, CHECK COUNT 
PRINTX #RECOV,RETRY(RS) 


30 0 oy THRE SHOL D 
2631 020354 DIFIED 
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CHKEND / CHECK SUCCESS AND DETERMINE RETRY STATUS / SEQ 0064 


2632 020356 PRINTX #THRSLO ; 
020356 020760 #THRSLO,=(SP) 
0362 000001 #1,-(SP) 
020366 010600 SP,RO 
_ 020370 C$PNTX 
' 020372 2706 
2633 020376 
2634 020400 


000004 #4 ,SP 


BR _ 
: PRINTX #THRSHI é 
021006 ATHRSHI ;=(SP) 
000001 oan" 


, CSPNTX 
000004 #4,SP 
000400 : #3178, aR5 :WRITE OR READ OPERATION? 


000002 MO #SFTRD.R4 READ 
WSF TWR,R4 WRITE 
0G 


000002 ; RETRY(RS) ;RESTORE TO HUNKY=DORY STATE 
002200 #81T10!B1T7,aR5 :NO RETRY, NORM THRESHOLD 


: NOP sRETRYING; SEE IF HARD YET 
001000 ae ~ hl atl ;TU DATA CHECK ERROR? 


ZYES 
#RETERR ;NO=" OTHER-ERROR’’ ERROR 
021102 #MRETERR,-(SP) 
000001 1,-(SP) 
SP ,RO 
$PNTB 


000004 #4,SP 
000002 RETRY(R5) NO RETRIES 
002200 re ae 2@R5 :NO RETRY, NORM THRESHOLD 


BR CHK. 7 EX 
010146 000002 : MP +t ed »RETRY(R5)- wine DID WE GRADUATE TO HARD? 


HRD 
000002 INC RETRY(R5) NO. JUST ANOTHER 
2655 020534 PRINTX #RTRYN,RETRY(R5S) | ;PRINT OUT 
020534 RETRY(R5S) ,~(SP) 


000002 
021040 #RTRYN,~(SP) 
000002 , #2,-(SP) 


e 


020554 062706 000006 #6,SP_ 

2656 020560 BIT #B1T7,aR5 WAS NORMAL THRESHOLD? 

2657 020564 1403 1$  YES-REDUCE GAIN 

2658 020566 B #B1T7,aR5 = NO=NORM 

2659 020572 CHKRET 

2660 020574 #B1T7,aR5 REDUCED 

CHKRET ; DONE 

NOP HERE IS HARD ERROR! 

PRINTX MUNREC 
M#UNRE C ,~(SP) 
#1,-(SP) 
P,RO 
CSPNTX 
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CHKEND / CHECK SUCCESS AND DETERMINE RETRY STATUS / 


062706 000004 

032715 000400 #81T8,aR5 3RD OR WR? 
001003 4$ ; WRITE 
pie/a3 000016 MHRDRD ,R4 


2667 02 000402 BR 
2658 020640 012704 000020 4$: MOV MHRDWR ,R4 
004737 021464 5$: LOG 


2669 020544 
2670 020650 005065 000002 CL RETRY(RS) TO 


;BA NORMAL 

sor} 020655 042715 002200 #BIT10!BIT7,@R5 ;NO RETRY, NOT REDUCED 
2673 020660 000002 010124 CHKRET: #BIT1,SYSTAT sNO SYSTEM RETRY NEXT PASS 
2674 020666 
2675 020672 
2676 020674 
2677 020676 
24678 


000100 + ti eats NO MORE HOST DATA CHECK ERROR 
RO 


26/9 

2680 020700 : RECCy: : /%ARECOVERED FROM DATA CHECK ERROR RETRY # %D1%N/ 
2682 020760 THRSLO: Sri /%A NORMAL THRESHOLDZN/ 

2684 021006 ) THRSHI : /%A MODIFIED THRESHOLD %N/ 

2686 021040 RTRYN: /%ARETRY # %D12%N/ 

2687 ~EVEN 

2688 021060 UNREC: . x / ZAUNRE COVERABLE %N/ 

oor 021102 RETERR: /%AOTHER ERROR DURING RETRY : EXIT RETRY%N/ 

2692 
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CHKSUC / 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2703 021154 
2704 021156 
2705 021164 
706 021172 
2707 
2708 021174 
2709 021202 
2710 021204 
2711 021212 
2712 
2713 021214 
1216 
1224 


2720 021244 
2721 
2722 021246 


2729 021274 
2 an 021300 


273 

3532 021302 

2735 021306 

2734 

2735 021310 
36 

2738 021324 

2739 

2740 021326 

2743 021342 

2744 

2745 021344 

2746 021352 

2747 021354 

2748 021360 

2749 

2750 021362 


MACRO M1110 


122760 
001003 
052715 
000477 
126527 
001006 
105760 
100070 
012704 
000463 
122760 
001003 
012704 
000454 
122760 
001003 
012704 
000445 
122760 
001003 
012704 
000436 


122760 


000002 
000000 


000001 
000100 
000100 


177737 
000030 


177757 
001000 


000100 
000003 


000044 


177740 
000024 


177767 
000054 


177720 
000040 


177770 


12=JUN=79 
INTERPRET SUCCESS CODE / 


000076 
000003 


000003 


000002 


000003 


000003 


.000003 


000007 


000003 


000003 


000003 


000003 
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UT 


SEQ 0066 


-SBTTL CHKSUC / INTERPRET SUCCESS CODE / 


INPUTS: 


CHKSUC: NOP 
MOV 


CMPB 
BEQ 


228: 


208: 
1$: CMPB 


2$: CMPB 


3$: CMPB 
4$: CMPB 
5$: CMPB 


6$: CMPB 


: CHKSUC - COPY SUCCESS CODE (BYTE) TO SUCCS+1(R5). 
AND _IF NOT LOG APPROPRIATE 

RO POINTS TO END PACKET. 

: OUTPUTS: R4 IS ERROR NUMBER IF ERROR. 


2(RO) ,SUCCS(R5) 
MESOK , 3(RO) 


maa 


INTERPRET SUCCESS 
ERROR. 


SUCCS(R5) UPDATED. 


;RO-->END PACKET 
;GET SUCCESS BYTE 
;COMPLETE SUCCESS-EXIT 


0K BUT RETRIES? 


CMDSNT (RS) ,A#RS$RD:A READ? 
22$ NO 


10$ :NO RETRIES | IN MAINTENANCE ! 
CMDSNT (RS) , ARSSWR SA WRITE? 
20s NO 
10$ SLOG IT 
#ESNOMO,3(RO)  =NO MOTOR? 
1$ NO 
#NOMOT ,R4 YES=- 
11$ SLOG 
HESCKS ,3(RO) :* DATA CHECK'' ERROR? 
#BIT9,aR5 “SET DATA=CHK-ERROR FLAG 
12$ ‘DONT LOG 
CMDSNT(R5) ,ARSSSLF ;SELF TEST? 
3(RO) TYES, NEG. IF ERROR 
12$ - 2K 
ASLFER.R4 : YES-ERROR 
11$ ‘LOG IT 
HESSK,3(RO) sSEEK ERROR? 
4 NO 
ASKERR,R4G YES- 
11$ [LOG 
HESNCRT ,3(RO) :NO CART? 
HNCART RS YES= 
11$ SLOG 
#ESCMD,3(RO) :NO UNDERSTAND HOST? 
ACMNDER,,R4 sYES= 
11$ SLOG 
#ESNONX,3(RO) | :NON EXISTENT UNIT? 
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CHKSUC / INTERPRET SUCCESS CODE / 


2751 021370 001003 7$ 

2752 021372 012704 000036 #NOUNIT ,R4 

sfer 021376 000427 11$ 

2755 021400 122760 177765 000003 : MESWLOC,3(RO) ;WRITE LOCKED? 
001003 8$ ;NO 


012704 000026 AWRLOCK RG YES- 
3738 021414 000420 BR 11$ : 


2760 021416 122760 177776 000003 : MESPART,3(RO)  ;PARTIAL OP? 
001003 9$ ;NO 
012704 000034 APARTL ,R4 

ser 021432 000411 11$ 

2765 021434 122760 177711 000003 : MESREC, 3(RO) 
001003 1 


012704 000042 #RECERR,R4 
sree 021450 000402 11$ 


2770 021452 012704 000046 : AMSUCOTL ,R4 : UNDEF INED 
2771 021456 004737 021464 : LOG ;LOG ERROR 
2772 021462 : ET ;RETURN 
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LOG / TO LOG ERROR IN CORRECT PLACE 


-SBTTL LOG / TO LOG ERROR IN CORRECT PLACE 


: Loc ~ DETERMINE IF ERROR IS FATAL, NON-FATAL OR FATAL AFTER N TRIES 
BY INDEX (ERROR #) uouer DEVICE D DATA es ADD THE DRIVE # TO 


DESCRIPTION. ABORT THE UNIT IF INDICATED THROUGH DODROP CODE. 
INPUTS: R4 = ERROR 


T : 
; PRINT APPROPRIATE ERROR MESSAGE 
; CODE 

; OUTPUTS: ABNDXYRS) = ERROR CODE. DLV(RS) = 0 


LOG: 


soo 021472 
2792 021474 011537 002074 
2793 021500 2737 


@R5,L$LUN ;GET UNIT > ft 
002074 #177770,L$LUN MASK IT OFF 

R4, ABNDX(R5) sSAVE INDEX IN CASE OF ABORT MESSAGE 
000120 ALGOFST,R3 2 OFFSET TO LOW ORDER BYTE re 

R4,R3 ;FORM INDEX OF PARAM. TO UPDAT 
* FORM ABSOLUTE Met THIS INIT. 
022470 ;SEE WHICH DRIVE T'WAS 
$ S DRIVE 0 


é V 
R3 :DRIVE 1; POINT TO UPPER BYTE 
000377 : ee SPOTENTIAL OVERFLOW POSSIBLE? 


LOGOK :NO 
0..,OVRFLO,ERRDES ;YES 
—— 


OVRFLO 
ERRDES 

ABO ;ABORT UNIT 

aR3 ; INCREMENT THE ERROR 

@R3,R4 STEMP'LY SAVE I 

ABNDX(R5) ,R3 GET INDEX NEAIN 

#RSNTAB,R1 FORM ADRS OF MSG 

ABNDX(R5) ,R1 “LIKE THIS 

#BITO,R1 : INSURE WORD BOUNDARY 

004400 #EVL -ELGLOC TEVL SELECTED? 


;NO-CON 
002216 bose ee 7YES,OVER THRESHOLD? 
021626 R3,DFTL1+2 7:YES,LOAD ERROR # 
021630 MOV aRi ,DFTL1+4 AND MESSAGE ADDR 
O° DFTL1,ERRDES ERROR 
—— 


DFTL1 
ERRDES 


BR DROP IT 
000014 ; nS. | eat : "NEVER FATAL’ TYPE? 
021656 R3,LOG1+2 :YES, ERROR CODE 
2822 021650 011137 021660 ari ,LOG1+4 DESCRIPTION 
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LOG / TO LOG ERROR IN CORRECT PLACE 
2823 021654 LOG1: ERRSOFT 0.,L0G1,ERRDES 
021654 CSERSOF T 
021656 0 
021660 


LOG1 
ERRDES 


021662 
2824 021664 000450 LOGO sEXIT 
2825 


2826 021666 000026 : R3,AWRLOCK :ONE T 

2827 021672 MABEE ZNO, MAYBE A MULTIPLE 

2828 021674 0337 021706 R3,LOG2+2, i YES 

2829 021700 021710 MOV @R1 ,LOG2+4 

2830 021704 : 0,LOG2,ERRDES ;PRINT HARD MESSAGE 
021704 a 


LOG2 

021712 ERRDES 

ay 021714 000430 ABO ;DROP UNIT 

2833 Atal 177400 #177400 ,R4 NEGATE SIGN EXTEND 

834 010136 S oR4 SEE IF MULTIPLE OF 
D FTLNM-YES! 


% ?NO 
2837 081535 773 : BR sNOT THERE YET 
2838 


2839 021734 021746 : R3,LOG3+2 ERROR CODE 
2840 021740 021750 MOV aRi ,LOG3+4 DESCRIPTION 
2841 021744 : ERRSOFT o. LOG3,ERRDES 

7 CSERSOF T 


0 
LOG3 
ERRDES 
BR LOGO sEXIT 
021770 : MOV R3,LOG3B+2 HARD ERROR CODE 
021772 MOV @R1,LOG3B+4 DESCRIPTION 
ERRHRD 0,LOG3B,ERRDES: 
— 


LOG38 
ERRDES 
: ars ,RO :GET UNIT NUMBER 
177770 #177770,RO SUN-SIGN EXTEND 
RO SUSE LOGICAL # TO DROP 
RESTORE 


C$DO0DU 


2854 022016 ;RE TURN 
2855 
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LOG / TO LOG ERROR IN CORRECT PLACE SEQ 0070 


:  ERRDES - CONTAINS CODE FOR EXTENDED ERROR INFORMATION: DRIVE #, 
: BLOCK #, ETC. 


2861 
2862 022020 BGNMSG ERRDES zERROR DESCRIPTION 
022020 
2863 022020 RO 
2 022022 R2 
Re sPRESET TO DATA TYPE 
000020 * hls ee PACK TYPE? 


ERRDES: : 


INC R2 ; COMMAND 
PRINTB #UNIT,<B,DR(R5)>,R2,<B,SYSTAT+1> cont 


010125 SYSTAT+1, (SP) 
R2,-(SP) 
~(SP) 

33563 paphns bd 

000004 


000012 
000064 MOV REC(R5) ,RO RECORD artis 
016502 000072 MOV PATTEN(RS),R2 DATA EXPECTED 
005046 PRINTB #RECID,RO,<B, cmpsnt (RS) >, <B,R2>,<B,SUCCS+1(R5)> ' 


-(SP) 
156516 000077 SUCCS+1(R5), (SP) 
-(SP) 
or" 
000100 ie - (SP) 


022272 
000005 


022142 062706 000014 
2873 022146 000074 TST DLV(R5) DLV ERROR? 
2874 022152 BEQ $ :NO 
2875 022154 PRINTB #RECID2,DLV(R5) ; YES-PRINT 
022154 000074 DLV(R5) ,~(SP) 
022446 MRECID2,-(SP) 
000002 #2,~-(SP) 
SP RO 
C$PNTB 
000006 #6,SP 
000074 DLV(RS5) :RESET 
: Rs sRESTORE 


06 
2879 022210 ENDMSG sEXI™ 
022210 


L10020: 
022210 TRAP C$MSG 
2880 022212 045 104 UNIT:: .ASCIZ /%ADRIVE# %01%A PAK SENT %0G1%A FLAG RCVD %03%N/ 


2881 -EVEN 
2882 022272 102 RECID:: .ASCIZ /%ABLOCK# %04%A COMMAND %02%A EXPCTD %03%A SUCCESS %03%N/ 
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LOG / TO LOG ERROR IN CORRECT PLACE . SEQ 0071 


2883 EVEN 
2884 022364 103 101 116 OVRFLO: -ASCI2 /CAN'T UPDATE ERROR OR STATISTIC:OVERFLOW PENDING/ 
886 022446 045 101 040 RECID2: -ASCI2 /%A RCDB WAS %06%N/ 


ot VE 
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WHCHDR /SEE WHICH DRIVE IS ACTIVE SEQ 0072 
~SBTTL WHCHDR /SEE WHICH DRIVE IS ACTIVE 


“+ : 
; INPUTS: NONE 
; OUTPUTS: CARRY=DRIVE (1 OR 0) 


2896 
on 022470 0600241 WHCHDR: CLC CLEAR CARRY 


2899 022472 105765 000060 DR(R5) :DR 0? 
001401 2$ 7 YES 
000261 ; 


2902 
2903 022502 2 ZRETURN 
2904 
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CHKSUM / FORM THE PACKET CHECKSUM SEG 0073 


-SBTTL CHKSUM / FORM THE PACKET CHECKSUM 
2907 


EE 


+ 
3; INPUTS: RO > (POINTS TO) TOP OF PACKET 
: R1 = # OF BYTES 

; OUTPUTS: RO “—- WHERE TO PUT CHECKSUM 

: R1 = CHECKSUM 


BIVBVVBY 
NOUS WN =O 
oo 


CHKSUM: . RS 
042737 000001 010124 it ABITO,SYSTAT "CHECKSUM IS ODD"' BIT 
000001 + laa :AN ODD # OF BYTES? 


. 


$ 
022524 052737 000001 010124 #B1TO,SYSTAT 7 YES 
022532 006001 : R1 3/2 FOR WORDS 


2 022534 005003 : R3 PREP CHECKSUM WORD 


022536 : (RO) +,R3 :FORM SUM 
R3 sWITH CARRY 
R1 sMORE WORDS? 
29 : 022544 001374 3$ i YES 


293 
2932 022546 032737 000001 010124 rt hla »SYSTAT = IT ODD 


2933 022554 a 3 

2934 022556 (RO) +,R2 YES GET NEXT BYTE 

2935 022560 177400 IC #177400,R2 ;UN-SIGN EXTEND 

2936 022564 0203 R2,R3 sADD IT IN 

jag l4 022566 005503 R3 zAND CARRY JUST IN CASE 


2939 022570 010301 : R3,R1 RETURN IT IN CORRECT PLACE 
2940 eecole Re RESTORE 

2941 022574 R3 

2942 022576 ;RETURN 
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CKCKSM /MODULE TO CHECK THE CHKSUMS 


-SBTTL CKCKSM /MODULE TO CHECK THE CHKSUMS 

i+ 

; INPUTS: R4& = THE PACKET BYTE COUNT 

; RO => THE PACKET TOP 

; OUTPUTS: CARRY SET IF CHECKSUM CALC'D DOES NOT EQUAL CHECKSUM SENT 
: RO => THE PACKET TOP 


CKCKSM: PUSH 
PUSH ; SAVE 
010401 MOV R :COPY BYTE COUNT TO CORRECT 
004737 022504 CALL CHKSUM ;REGISTER FOR CHKSUM AND 
FORM CHECKSUM 
HERE RO ==> XMITTED CHKSUM, R1=CHKSUM CALC'D 


1 
022612 122001 (RO)+,R1 ;LOWER ORDER CHECK 
022614 001005 2$ ; WRONG 


022616 000301 R1 ;OK-PREP FOR 
022620 122001 (RO)+,R1 HIGH ORDER CHECK 
2968 022622 2$ 7 WRONG 
544 022624 000241 :OK-CLEAR SAILING 
022626 3$ sEXIT 


7. 
Z 022630 : ;LET ERROR BE KNOWN 


2975 

2976 022632 

2977 022634 

2978 022636 ;RETURN 
2979 


SEQ 0074 
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DOBRK / MODULE TO INIT TUS8 AND TEST INTERRUPTS SEQ 0075 


-SBTTL DOBRK / MODULE TO INIT TU58 AND TEST INTERRUPTS 


++ 
; DOBRK ~ SEND RADIAL SERIAL A oll TO DEVICE: 


SET bi ie INTERFA 


SEND 8. 
CLEAR ' ON INTERFACE 
SET VECTORS FOR RCV AND XMIT 
SEND 2 BYTES OF ‘"INIT'’ 
RECEIVE ‘'CONTINUE"’ 
IF RECEIVE GARBAGE OR TIMEOUT - ERROR 
CLEAR it ake t AND VECTORS 
@R5 BIT14 WAS SET = (SEND BREAK) 
: @R5 BIT14— CLEAR IF SUCCESSFUL INIT. 
SYSTAT+1 = RECEIVED BYTE 
ERRORS R4 = ERROR CODE: 
- SEND NOT READY TIMEOUT (TOSNDB) 
- NO RESPONSE 
- DLV ERROR 
~ WRONG RESPONSE 


So 
Sn 
— 
Uv 
= 
- 


Sa Be Se Se Be Be Ge Be Be Be Be Be Be Be . 


105037 023373 : INI TwD+1 ZCLEAR BYTE RECEIVE ADDR 
CL BRKTO 7CLEAR TIME OUT CONSTANT 
000026 #BITO,@XMSR(R5) =SET "BREAK" 
000100 ARS $suiT. CMDSNT(R5) ;SAY WE SENT "INIT* 
#BIT4,aR5 7PAK SENT TYPE =COMMAND, SORT OF 
#8. RG :BREAK~IT'S-BACK COUNT=8 


SUPERVISOR TAKE FIVE 


FOR “C CHECK, ETC. 
+ torrie READY? 


iYE 
023374 BRKTO :NO,TIME OUT? 
BN 1$ : 


000056 MOV ATOSNDB ,R4 sYES, SET ERROR CODE 
021464 LOG ;LOG IT 
BR 3$ sEXIT 
023370 000030 : BRKWD , a2XMDB(R5) = SEND NU 
023374 BRKTO RESET TIME OUT 
R4 :MORE NULLS TO SEND? 


BN 1$ 
000026 @XMSR (R5) :NO. CLEAR ‘BREAK’ 
000024 MOV @RCDB(R5) ,RO ;HEAVE ‘GARBAGE’ 1ST BYTE 
SETPRI #PRIO0 7SET TO INTERRUPT FO SURE 
000000 #PR1I00,RO 


C$SPRI 
SETVEC TUVECT(RS) ,ARCVINT,APRIO7 ;SET VECTO INFO 
000340 #PR1I07,-(SP) 
023300 #RCVINT ,-(SP) 
000204 TUVECT CRS) , 27 (SP) 


000010 
3026 023006 000004 ADD #4,TUVECT(RS) —; AND _INC_TO SND VECTOR 
3027 023014 SETVEC TUVECT(RS) ,ASNDINT ,#PRIO7;AND SET IT 
023014 012746 000340 #PRI07,=(SP) 





HARDWARE TESTS 
DOBRK / MODULE 


2 023064 
3033 023072 
3034 023076 
3035 023100 
3036 
3037 023102 
3038 


23130 
3043 023132 
304 


4 
3045 atte} 


3050 023160 
3051 
3052 023162 
3053 023170 
3054 


3055 023172 
3056 023176 
3057 


3058 023200 
3059 023206 
3060 023212 
3061 


3062 

3063 023216 
3064 023224 
3065 023232 


3069 023262 
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TO INIT TUS8 AND TEST INTERRUPTS 
012746 023264 

016546 000204 

012746 000003 

104437 

062706 000010 

162765 000004 000204 SUB 
005037 023374 CLR 
012704 023372 MOV 
010437 023376 MOV 
052775 000100 000026 BIS 
004737 023334 CALL 
005715 TST 
100446 BMI 
005037 023374 CLR 
012704 023372 MOV 
010437 023376 MOV 
052775 000100 000026 BIS 

737 023334 CALL 
005715 TSI 
100431 BMI 
012704 023373 Mov 
010437 023376 MOV 
052775 000100 000022 BIS 
004737 023334 CALL 
005715 TST 
100416 BMI 
123727 023373 000020 CMPB 
001003 BNE 
042715 040000 BIC 
000407 BR 
113737 023373 010125 28: MOVB 
012704 000032 MOV 
737 021464 CALL 
042775 000100 000026 38: BIC 
042775 000100 000022 BIC 
CLRVEC 

016500 000204 : 
104436 

062765 000004 000204 ADD 

CLAVEC 

016500 000204 

104436 _ 

162765 000004 000204 SU 





MOV 
MOV 
MOV 
TRAP 
ADD 

#4, TUVECT(RS)  ;RESET re ADDR. 

BRKTO ;RESET TIME OUT 

gy Lh F R4 sUSE ADDR. FOR SNDBYT 


R4 ,BRKPTR SAND SAVE FOR ‘WAIT'' 
#BiT6, @XMSR(R5) ;ENABLE INTER. 
WAIT tr ENTER LOOP 


aR5 TIME OUT? 
3$ SYES-EXIT 
BRKTO sRESET TIME OUT 
#INITWD,R4S :SEND SECOND INIT 
R4 ,BRK PTR + SAVE POINTER AGAIN 
#BIT6, @XMSR(RS) ‘AND THEN ENABLE INT 

WAIT ‘AND WAIT 
ars 7 IF ABORTED 
3$ * THEN EXIT 
ig le oa R4 ; WHERE RE SPONSE WILL GO (ADDRESS) 
R4,BRKP ZAND FOR ‘WAIT 
#BIT6, BRCSR(RS) ad ae INT. 
WAIT :GET SWER 
aR5 ORTED? 
3$ YES. 
INITWD+1,4R$CONT ;NO, IS IT ‘CONTINUE'? 
2$ é E-ERROR 
#B1T14,aR5 ;SUCCESSFUL, CLEAR DOBREAK FLAG 
3$ sEXIT 
INI TWD+1,SYSTAT+1 7SAVE BUM RESPONSE 
ACNINIT,RS sCAN'T INIT CODE 
LOG ;LOG I 

;SCHEDULER WILL TRY AGAIN IF NOT ABORTED 

#BIT6,aXMSR(R5) : CLEAR INTERRUPTS 


#BIT6,ARCSR(R5) ; AND FOR RECIEVE 


TUVECT(R5) RELEASE RECIEVE VECT. 
MOV 
TRAP 
#4,TUVECT(RS)  ;AND GET SEND ADDR. 
TUVECT(RS) sAND RELEASE IT 
MOV 
TRAP 


#4,TUVECT(RS)  ;RESTORE POINTER 
RE TURN 


SEQ 0076 


A#SND INT ,=(SP) 
TUVECT(R5) ,~(SP) 
#3,~(SP) 

C$SVEC 

#10,SP 


TUVECT (RS) ,RO 
CSCVEC 


TUVECT(RS) .RO 
CSCVEC 


HARDWARE TESTS 


MACRO M1110 


INTERRUPT SERVICE ROUTINE 
3071 
3072 
3073 023264 
023264 


3077 023276 
023276 
023276 

3078 

3079 023300 
023300 

3080 

3081 023300 

3082 023306 

3083 023314 

3084 023320 


042775 
112475 


000100 
000030 


023376 


023374 


000026 


000022 
000074 


000050 


021464 
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-SBTTL INTERRUPT SERVICE ROUTINE 


BGNSRV SNDINT 

SNDHND: BIC 
MOVB 

ENDSRV 

BGNSRV RCVINT 


RCVHND : 


10$: 
ENDSRV 


WAIT: 


1$: 
BRKWD: .WORD 
INITWD: . 


BRKTO: 
BRKPTR: .WORD 


''SEND'' INTERRUPT SERVICE: 
SNDINT 


#BIT6,AXMSR(R5) ;DISABLE INTERRUPT 
(R4)+,@XMDB(R5) ;OUTPUT BYTE 


L10021: 


:'RCV'* INTERRUPT SERVICE: 
RCVIN 


#BIT6,ARCSR(RS) :DISABLE INTS 
@RCDB(RS) ,DLV(RS) : SAVE 
DLV(R5).(R4)+  :BYTE TO 
DLV(R5) ‘ERROR? 


10$ 7 YES 
DLV(RS5) 3NO CLEAR ERROR 


L10022: 


;WAIT LOOP FOR 
; INTERRUPT SERVICING 
R4,BRKPTR sIF=, THEN NO INTERRUPT 
1$ GOT 
‘SUPERVISOR BREAK 
3KILL SOME TIME 
;TIME OUT? 
sNO.. CONT. 
:YES LOAD ERROR # 
7LOG IT. 
RETURN 
INIT COMMAND 
:RSCONT is EXPECTED HERE 


: TIME 
[POINTER TO INITWD 


SEQ 0077 
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COMPAR/DATA COMPARISON MODULE SEQ 0078 


3108 -SBTTL COMPAR/DATA COMPARISON MODULE 


WW 
— ot 
— 


: "COMPAR - IF ‘'COMPARE_DATA'' SELECTED, COMPARE EACH DATA BYTE OF PACKET 
: TO PATTEN(R5). SAVE NUMBER OF B IF NOT 
0, PRINT SOFT ERROR AND TOTAL # WRONG BYTES. Set *BAD_DATA_ 
IN_PACKET'' BIT (BIT6 @R5) FOR HIGHER LEVEL MODULES. 
- TCMPDAT) FLAG TO NOT COMPARE (=1) 
- PKPTR(RS) POINTS TO DATA PACK. 
: = BIT6 ARS ADJUSTED. 


WNWAAWWWWWW 
et td 8 2 2 
NON SS Ss  s S 3 
—SOVONAOUSWR HO 
oO 


COMPARE DATA it DATA PACKET 
:TO PATTERN WRITTEN 
[USING BYTE COUNT IN PACKET 
023556 BDBYTS CLEAR TOTAL WRONG 
000104 PKPTR(RS5) ,R4 3GET TOP OF PACKET 
002212 Shanes SMOPERT SELECTED? 


R4 :YES, LOCATE COUNT 
aR4,R1 IT 
177400 #177400,R1 


— 


R4 E 
000072 : MPB PATTENCRS) (RA) +" lint WAS EXPECTED? 
023556 BDBYTS NO. INCREMENT TOTAL WRONG 
R1 ;MORE LEFT? 


BN 1$ YES 
023556 BDBYTS “ANY WRONG? 


ZNO 

002074 @R5,L$LUN - 'GET UNIT NUMBER 
177770 002074 IC #177770,L$LUN :MASK IT OFF 

ERRSOFT 0.,M$BDA,ERRDES ©; YES-PRINT "BAD DATA IN PACKET’ ERROR 

TRAP peenewr's 


MS$BDA 
ERRDES 
PRINTB #DESC,BDBYTS 
023556 BDBYTS,-(SP) 
023560 MDESC ,-(SP) 
000002 . ce 


C$PNTB 
000006 ADD #6,SP 
000100 #B1T6,aR5 LET "EM KNOW et ee DATA FLAG 
000204 010154 Vv #132. ,PRNSIZ :SIZE_IS ONE DATA PAC 
023614 - PRNPAK SAND PRINT THE PACKET 
Ri RESTORE 
023552 POP RO 


9 
023554 


023556 BDBYTS: .WORD 
023560 045 124 DESC: arty /%ATOTAL BAD BYTES= %D3%A. %N/ 
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3156 
3157 


1? a 


Ww 
SSELE 


NINNNN 
wn 


023724 
3181 023730 
3182 023732 
023732 


023760 
023762 
023764 


023774 
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PRNPAK/MODULE TO PRINT DATA PACKET 


105737 


012746 
012746 


010600 
104417 
062706 
000741 


012746 
012746 


010600 
104417 
062706 


002210 


000104 
000020 
023762 


023762 
023764 
000002 


000006 
010154 
023760 


023774 
000001 
000004 


023774 
000001 


000004 


023760 


-SBTTL PRNPAK/MODULE TO PRINT DATA PACKET 


: * PRNPAK = 8 Or PPIRGR PACK_CN_ERROR SELECTED: PRINT EACH BYTE OF PACKET 
PRNSIZ = # OF BYTES IN PACKET. 
: NONE 


PRF ORM: 
CARLF : 


MOVB 
PRINTF 


BNE 
PRINTF 


BR 
PRINTF 


4$ 
PKPTR(RS) ,R4 
#16.,LNCNT 
(R4)+,PRDAT 


/%03%A / 
/%N/ 


PRINTS 1 PACKET 
[PKPTR(R5)=>TOP OF PACKET 
[PRNSIZ (PASSED)=BYTE COUNT 


PRINT PACKET SELECTED? 


:NO 

7YES-GET TOP OF PACK 
316 BYTES PER LINE 
AVOID SIGN EXTEND 
#PRFORM,<B,PRDAT> ;PRINT BYTE 


-(SP) 


;ONE LESS 


NO MORE 
ae LINE? 
T YET 
YES 
MCARLF ,~(SP) 
or ie 


* 


#4 SP 


NEXT LINE 


FINISH UP 
#CARLF ,~(SP) 
#1,~(SP) 


-RO 
CSPNTF 
#4 ,SP 


Sg 2@QuuUmN 


Di 
E 
E 
E | 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
F 
F 
F 
F 
F 
F 
F 
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PATCH AREA 


-SBTTL PATCH AREA 
«REPT 100. 
. WORD 
-ENDR 


F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
¢ 
¢ 
¢ 
G 
G 
G 
G 
G 
¢ 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
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1/0 BUFFER AREAS: 


-SBTTL 1/0 BUFFER AREAS: 
;WHO=GE TS-WHAT=SPACE TABLE 
025370 BUFTBL: .WORD 
- WORD 


LO LO el LO LO Le kk 


-— 


TRANSMIT BUFFER NECESSARY: 


24330 -BYTE RSXOFF 
$515 024331 3 -BYTE RSXOFF SEND XOFF BEFORE EVERY PACKET 


e555 024332 $TRBUF: .BLKB RCBF SZ 
3222 

3223 

3224 025370 


U 
b 
U 
b 
b 
] 
] 
] 
] 
] 
] 
] 
] 
] 
] 
] 
] 
] 
] 
] 


Gis Cet Greet Gent 02 Ge Ged Beet Gant Sind Get 
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1/0 BUFFER AREAS: 


3256 035750 ENDMOD 
3257 


= a ow ow ae 


ee ee ee ee ee oe 


l 
l 
l 
l 
l 
l 
l 
l 
l 
l 
l 
l 
l 
l 
l 
l 
l 
l 
l 
l 
l 
l 
l 
l 
l 
l 
l 
l 
Ll 
l 
l 
l 
l 
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1/0 BUFFER AREAS: 


- TITLE PARAMETER CODING 
-SBTTL HARDWARE PARAMETER CODING SECTION 
BGNMOD 


5 oF 

; THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 

; THAT ARE USED BY THE SUPERVISOR TO BUILD P=TABLES. THE 

3 MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 

; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 

; MACROS ALLOW te SUPERVISOR TO ESTABLISH COMMUNICATIONS 

; WITH THE OPERATOR. 

3311 

3312 035750 BGNHRD 
035750 


-WORD L10023=L$HARD/2 
035752 L$HARD: : 


MSG1,0,0,160000,177777,YES 
000031 
036014 


160000 
177777 
001031 
036025 
000090 


000776 . TSHILIM 
MSG1C.6,1.YES 
003130 ‘ TSCODE 
ile 


MSG1B,2,0,0,776.,YES 


MSG2,4,1,YES 
TSCODE 
ate 


MSG3.,4,2,YES 





TSCODE 
MSG3 


3326 
3327 036014 


8 036014 L10023: 


3329 036014 0 e 9 /TUS8 CSR/ 
: /VECTOR ADDR. 
/PDT (PARALLEL ) INTERFACE/ 
/TEST DRIVE 0/ 
/TEST DRIVE 1/ 
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SOFTWARE PARAMETER CODING SECTION 


-SBTTL SOFTWARE PARAMETER CODING SECTION 


++ 

THE SOFTWARE PARAMETER CODING SECTION yer MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCT IONS BUT ARE 
; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
; WITH THE OPERATOR. 


* 
. 
° 
. 
. 
- 
* 
. 
° 
° 
. 
. 


3355 
3356 036126 BGNSFT 
036126 
357 036130 L$SOFT: : 
5558 036150 GPRMD MSG4,0,D,1777.8.,512. YES 


WORD 1 10024=L$SOF T/2 


TSCODE 
MSG4 
1777 
TSLOL IM 
TSHILIM 


TSCODE 
_ 


MSG4B,10,1,YES 


MSG5,2,1,YES 
TSCODE 
—_ 
MSG6,6,1,YES 
TSCODE 
MSG6 


MSG7.4,1,YES 
MSG8,10.,D,377,1,254., YES 


TSHILIM 
3371 
3372 036204 SFTOUT: ENDSFT 
036204 L10024: 


3373 
3374 036204 ee "NUMBER OF BLOCKS:TEST 4-7 (8 TO 512)" 
: /ADD_DR # TO DATA PATTERN:TEST 4~7/ 
/STATISTICS PRINTED AT EOP/ 
/COMPARE DATA ON READ/ 
/PRINT PACKET ON ERROR/ 
/# ERRORS = DVC FATAL IF ‘EVL'SET/ 


14. sLASTAD CORRECTION 





* 
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SOF TWARE PARAMETER CODING SECTION SEQ 0085 
3382 ~ WORD 
3383 .ENDR 
3390 036516 LASTAD 
~EVEN 
036516 000000 «WORD 0 
036520 000000 -WORD 0 
036522 LSLAST:: 
3391 036522 ENDMOD 
3392 000001 END 


PARAMETER CODING MACRO M1110 12=JUN=-79 12:23 PAGE 60-2 
MBOL TABLE 


020154 : 000014 E 177740 G$RADB= 000000 


“ee 

Bae Eas 
2-4 

4 “uu 


+3 
ms 
=s 


g 


i] 
“4 
nhunnwununu 


$ 
zD™mMM yo 


ee Ot mt Bt te ag at bad ts et nt mt bt ne nt ns 
we 
Azac 
nonnu 


> w 
DAAAAAAIAG 
PAAW 
ANnNMM 
<—4=340-4 
e 


G$PRML= 00 LOT =0 
017530 CSOPEN= 000034 177711 GS$RADA= 000140 LSTDEV 004742 














PARAMETER CODING CRO M1110 12=JUN=79 12:23 PAGE 60-3 
MBOL TABLE 


g 


002110 G 020700 SVCGBL= 000000 
SVCINS= 000001 
SVCSUB= 000001 
SVCTAG= 000001 
SVCTST= 000001 
SWAPDR 002240 G 
SWPTR 002340 
SYSTAT 010124 
S$LSYM= 010000 
TAPLEN 010126 
THRSHI 021006 


33 


S88ss 


a ot ot ot 2 2 ot 
NORONY 
F-WN-ONAUSWN Oo 


L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 


niketotatotatotot=) 


mronr 


oO 
DAAAAAAIACG 


REC = 000064 
RECDAT 011114 
RECERR= 000042 
RECID 022272 SUCCS = 000076 $TSTM= 177777 
010444 RECID2 022446 SUCOTL= 000046 TSTSTS= 000001 
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SYMBOL TABLE 


TS$AU = 910010 TS$RPT= 010003 14 UNXPCT Orerr 


XFNSND 016034 
XMDB = 000030 X$TR 000020 
XMSR = 000026 $TRBUF 024332 


ABS. 036522 000 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 32864 WORDS ( 129 PAGES) 

DYNAMIC MEMORY: 20308 WORDS ( 78 PAGES) 

ELAPSED TIME: 00:06:4 

7.BIN/EN: ABS: AMA,7/NL :BEX/CR/~SP=LB1:(1,1]SVC/MLB, SY:(203,230)CZTUU 
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Z 
SYMBOL CROSS REFERENCE CREF 01 
SYMBOL VALUE tag 


huwnu nue 


026426 


G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 


REFERENCES 
#20-1557 


57-3205 


26-1874 
*52-3039 


#57-3225 


47-2807 
47-2831 


26-1911 


#20-1611 


38-2388 


36-2211 


29-1965 
13-1017 


38-2352 


35-2154 


13-1001 


* 35-2141 
21-1654 
10-767 
26-1890 


*52-3046 
*52-3019 


47-2809 
447-2847 


#26-1918 


54-3142 


47-2810 


38-2389 


29-1965 


16-1156 
26-1898 
13-1017 
41-2472 


38-2392 
38-2393 
45-2674 


45-2650 
35-2160 
35-2144 


21-1655 
11-803 
38-2302 


53-3092 
*52-3029 


454-3152 


50-2918 


41-2464 


30-2005 


43-2533 
14-1087 
45-2608 


48-2866 
52-3032 
45-2656 


35-2169 
45-2619 


21-1656 
12-890 
41-2470 


453-3106 
*52-3037 


50-2919 


45-2604 
30-2005 
45-2650 
30-2005 


43-2545 
16-1156 


52-3007 
52-3040 
45-2658 


45-2635 
45-2646 


21-1657 
13-966 


*53-3096 


50-2921 


45-2673 
30-2005 
45-2671 
30-2005 


52-3055 
37-2250 


52-3047 
45-2660 


45-2664 
46-2724 


21-1658 
13-986 


53-3105 


50-2932 


31-2031 


32-2058 


37-2272 


52-3063 
45-2671 


21-1659 
14-1085 


32-2058 


32-2058 


38-2304 





Z CREATED BY MACRO ON 12=JUN=79 AT 12:26 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE 


REFERENCES 
57-3206 


45-2615 


021154 2606- 45-2626 
022504 28-1940 
31-2031 


017550 441-2470 
0226 


#55-3191 
#41-2480 
#45-2602 


#43-2500 
41-2475 


45-2618 
#46-2703 
29-1965 
31-2031 
43-2566 
36-2217 


10-770 
46-2710 


#54-3120 


12-889 


52-3065 
13-1004 
47-2849 


47-2817 
47-2845 


13-1003 


PAGE 2 
CREF 


*41-2477 
45-2621 


29-1965 
32-2058 


#51-2954 


*10-772 
46-2714 


52-3067 


26-1913 


v01 


441-2482 
45-2625 


29-1965 
32-2058 


#10-793 
46-2727 


45-2643 


29-1966 
32-2058 


48-2872 


26-1914 


45-2651 


29-1966 
33-2085 


«52-3006 


35-2188 


45-2659 


30-2005 
33-2085 


39-2425 


45-2661 


30-2005 
#50-2916 





Z CREATED BY MACRO ON 12=JUN-79 AT 12:26 PAGE 3 
SYMBOL CROSS REFERENCE CREF 01 
SYMBOL VALUE 


REFERENCES 
ora 47-2823 


27-1926 


13-990 


13-1069 


48-2879 
35-2184 
16-1159 
14-1104 
12-891 

45-2624 


39-2402 


52-3024 
14-1084 


454-3153 
3-968 


#21-1660 
*47-2816 


| 39-2432 


53-3083 53-3084 


47-2841 


28-1936 


45-2648 
55-3175 
12-893 

45-2629 


52-3025 


13-975 
*26-1886 


#47-2817 


37-2270 
39-2433 
*53-3086 


54-3141 


29-1959 


48-2869 


45-2632 


52-3027 


*13-977 
*26-1890 


47-2817 


38-2343 
* 39-2435 


30-1997 


48-2872 


j 
45-2634 


* 13-986 
26-1891 


31-2023 


48-2875 


12-920 
45-2655 


13-988 
26-1907 


* 39-2405 
48-2873 


32-2050 


54-3142 


45-2663 


*13-1033 
*26-1909 


39-2406 
48-2875 


33-2077 


#24-1785 


39-2407 
*48-2876 


*26-1874 


* 39-2409 
*53-3082 





CREATED BY MACRO ON 12=JUN-79 AT 12:26 PAGE & 
CROSS REFERENCE CREF  vO1 SEQ 0092 
070120 1-802 11-820 424-1789 27-1929 «28-1945 #30-2016 #31-2042 *32=2069 
TE. CR ER I, pe 
57-2081 $2081 $3-2087 Sa 33-2085 
31-2028 32-2055 33-2082 


DAQDAAAAIG 


47-2823 47-2830 47-2841 #48-2862 54-3141 
1 39-2418 
437-2284 38-2316 39-2426 39-2438 
25-1857 25-1858 25-1859 46-2722 
46-2745 


46-2760 


46-2765 
46-2735 


46-2708 
46-2755 


#13-1078 47-2811 
#12-943 


el ce cee cel cee) cee cee cee cee cee cee ee) eed Uc 


17=1224 


6-485 7-538 12-874 

16-1151 17-1201 27-1924 
29=1957 30-1995 30-1997 31-2023 
$3-2077 2 53-3073 53-3079 59-3301 


15-1118 
16-1151 
~362 3-362 3-362 3-362 


3-362 3 3-362 3-362 3-362 3 3-362 3-388 
7-538 11-830 12-874 12-933 12-949 13-1069 15-1142 


— -. . . . . he he | 





Z CREATED BY MACRO ON 12=JUN-79 AT 12:26 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE 


2-2048 
33-2077 
59-3312 


5-445 
13-959 


3-388 
60-3391 
48-2862 
4-409 


#38-2337 


59-3315 


59-3317 


18-1273 


59-3327 
5-458 
13-1069 
6-485 
48-2879 
4-413 
12-933 


60-3372 
53-3077 


2 
39-2430 


38-2320 
38-2324 


38-2370 
38-2364 


59-3316 
60-3364 
59-3316 
60-3364 
59-3316 
60-3364 
59-3318 


PAGE 5 
CREF 


27-1924 27-1924 
ages : 


32-4030 


53-3079 53-3088 
28-1934 28-1936 


*39~2437 39-2440 


38-2340 38-2351 
38-2335 38-2339 


*38-2366 #38-2398 


59-3317 59-3318 
59-3317 59-3318 


59-3319 60-3359 


#39-2450 


#39-2400 
38-2342 


59-3319 
59-3319 


60-3360 


27-1926 
1957 


1-2021 
$3-$$01 
59-3301 


60-3358 
60-3358 


60-3361 


18-1273 


38-2353 


60-3359 
60-3359 


60-3362 


38-2357 





YMBOL CROSS REFERENCE 
VAL 


be py a bth hh 


a il 
AAW 
AnNMM 
C2 m 
—~O< 4-4 


CREATED BY MACRO ON 12=JUN-79 AT 12:26 


set 


30-1997 


TESTERS FFE 
OOWWw WWW 


445-2662 
11-804 


27-1924 
460-3372 


#30-1997 


11-806 


52-3038 


#48-2879 
#12-933 
28-1934 


a A 


29-195 
#30-1997 


PAGE 6 
CREF vO01 


59-3319 


59-3317 


3-397 
8-570 


10-664 
13-1047 
18-1274 
60-3384 
*11-808 


52-3045 


29-1957 
#53-3079 
29-1957 


1=2021 


60-3359 


59-3318 


4-415 


9-585 
10-670 
13=1057 
18-1280 


#24-1790 


52-3052 


#6-485 
18-1273 


30-1995 


#53-3088 


#31-2021 


60-3360 


59-3319 


4-430 
9-590 
10-675 
15-1123 
57-3254 


52-3058 


7-538 
#18-1273 


31-2021 


31-2021 
#27-1926 
429-1959 

31-2023 


57-3239 


#53-3103 


#7-538 


58-3256 


32-2048 


32-2048 


#5122033 


11-830 
#58-3256 


33-2075 


33-2075 
#28-1934 
30-1995 
#31-2023 


#59-3263 


. #11-830 


59-3301 


32-2048 


! 
| 
t 
t 
t 
t 
t 
t 
t 
t 
{ 
t 
t 
t 
E 
t 
E 
{ 
t 
\ 
( 
( 
{ 
( 
{ 
{ 
{ 
t 
{ 
{ 
t 
t 
t 
t 
{ 
t 
t 
t 
t 
{ 
t 
{ 
t 
t 
{ 
t 
( 
( 
( 
( 
t 
l 
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SYMBOL CROSS REFERENCE CREF vO01 
SYMBOL VALUE 


FERENCES 
ae=2068 32-2050 #32-2050  #32-2050 33-2075 #33-2075 33-2077 9833-2077 = #33-2077 


= 000167 
002204 


13-1041 
ro tc 
*55-3178 
39=2447 
#47~2787 
47=2842 
#47-2805 
47-2814 
*47=2822 


#55-3187 
43-2521 
52-3016 

#47-2850 

#47=-2819 


#47=2823 


43-2538 
52-5060 


47-2823 


47-2830 
47-2841 
*47=28644 #47-2845 47-2845 


10-754 10-770 11-806 12=921 13-975 14-1091 #21-165 -1 
38-2364 41-2475 21-1652 26-1884 


a 


#17-1201 
#14-1082 
#15-1118 


#3-407 


44-428 


416-1151 
#9-583 


59-3312 #59-3312 


5-445 45-445 
413-959 


G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 





Z CREATED BY MACRO ON 12=JUN-79 AT 12:26 PAGE 8 
SYMBOL CROSS REFERENCE CREF 
SYMBOL VALUE 


036522 
002100 
002074 


DADADAAAAIAIAAIAAAAAAAGA 


v01 
FERENCES 
mine #60-3390 


*13-989 #47=2792 47-2793 =#54=3139 
44-409 


#12-881 
60-3356 #60-3356 


6-467 46-467 


ts + 13-1035 


#59-3327 


60-3364  #60-3379 


#54-3140 





PATTEN 


CREATED BY 
ENCE 


*13-1028 


46-2752 
447-2826 
2 


46-2762 
#20-1580 


MACRO ON 12=JUN=79 AT 12:26 


#23-1725 


#26-1976 


2-343 
17-1226 


60-3390 
*29-1963 


PAGE 9 
CREF 


3-344 
18-1227 


#3-395 


*29-1964 


v01 


3-383 
18-1239 


43-395 


29-1965 


6-486 
58-3258 


43-395 


«30-2001 


7-487 
59-3259 


3-395 


* 30-2004 


7-500 


59-3273 


3-405 


30-2005 


11-832 


*31=c027 


Z CREATED BY MACRO ON 12=JUN-79 AT 12:26 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE 


PAGE 10 
CREF O01 


007044 
016002 
021040 


G 


DAADAAAIAAAAGA 


REFERENCES 
*31-20 


45-2624 


* 32-2054 
13-1024 
26-1910 

# 35-2145 


55-3170 
55-3175 
#55-3189 


52-3024 


14-1084 


45-2655 


* 32-2057 
#13-1077 


38-2319 


#55-3188 


52-3025 
*55-3176 


57-3220 


39-2405 
37-2254 


#20-1564 
#20-1585 


* 35-2163 


#28-1948 


#452623 


12-909 
12-921 


29-1965 
31-2031 
4645-2686 


52-2058 


38-2358 


52-3027 


#16-1187 
*37-2263 
43-2578 
57-3224 


39-2431 
* 38-2313 


39-2403 
35-2145 


28-1940 


*32-2066 


45-2624 


#12-934 
*12-923 


29-1965 
32-2058 


* 33-2081 


* 38-2360 


*37-2267 
57-3225 


52-3023 
38-2327 


39-2420 
37-2244 


*29-1962 
* 30-1998 
31-2031 
*33-2078 


45-2629 


#12-935 


29-1965 
32-2058 


* 33-2084 


*43-2507 


*38-2315 
57-3226 


53-3082 
*43-2510 


52-3047 
43-2501 


29-1965 


33-2081 


*45~2641 


29-1966 
32-2058 


48-2871 


54-3124 


*38-2332 
57-3227 


29-1965 
30-2005 
*31-2039 
33-2085 


#45=2649 


29-1966 
33-2085 


54-3132 


55-3172 


* 38-2336 
57-3228 


53-3081 


33-2085 


45-2652 


30-2005 
33-2085 


* 38-2338 
57-3229 


29-1966 
* 30-2008 
32-2054 
* 33-2088 


#452654 


30-2005 
#35-2126 








Z CREATED BY MACRO ON 12=JUN-79 AT 12:26 PAGE 11 

SYMBOL CROSS REFERENCE CREF O01 
SYMBOL VALUE REFERENCES 

002562 G #11-818 1-82 27-1925 27-1925 28-1935 28-1935 29-1958 29-1958 30-1996 

30-1996 3 3 33-2076 

29-1965 29-1966 29-1966 

33-2085 33-2085 35-2151 

32-2058 43-2513 52-3052 


2 29-19 30-2005 31-2031 31-2031 
33-2085 37-2261 38-2334 38-2358 43-2528 43-2549 


29-1965 29-1966 29-1966 30-2005 30-2005 31-2031 
33-2085 33-2085 37-2256 38-2330 43-2523 43-2561 


27-1928 28-1940 28-1940 29-1965 29-1965 29-1965 
29-1966 29-1966 30-2005 30-2005 30-2005 30-2005 
31-2031 32-2058 32-2058 32-2058 32-2058 33-2085 


27-1928 28-1940 29-1965 29-1965 29-1966 29-1966 
30-2005 31-2031 31-2031 32-2058 32-2058 33-2085 33-2085 37-2258 


27-1928 28-1940 29-1965 29-1965 29-1966 29-1966 30-2005 30-2005 
32-2058 32-2058 33-2085 33-2085 43-2564 
57-3217 57-3218 

37-2284 


52-3006 


29-1965 Fh 29-1966 30-2005 31-2031 31-2031 32-2058 33-2085 


46-2727 
5 


32-2058 35-2167 46-2714 
31-2039 32-2066 33-2093 


28-1935 29-195 30-1996 31-2022 32-2049 33-2076 
10-754 #10-759 


5 28-1935 28-1935 29-1958 29-1958 30-1996 
31-2022 32-2049 32-2049 33-2076 33-2076 


447-2839 
45-2637 


35-2139 
38-2362 39-2419 39-2427 39-2439 
*29-1965  *29-1965 = *29-1966 = 29-1966 
*31-2031 32-2058 +*32-2058 +*52-2058 
*33-2085 +*33-2085 *35-2138 
023264 #53-3075 








SEQ 0100 


48-2872 


*46-2704 


~ 
N 
oe) 
N 
! 
wn 
w 


E 12 


PAG 
CREF 


#53-3073 
12-911 
12-913 

#38-2388 


CREATED BY MACRO ON 12=JUN-79 AT 12:26 
SYMBOL CROSS REFERENCE 
REFERENCES 


Z 





Z CREATED BY MACRO ON 12=JUN-79 AT 12:26 PAGE 13 
SYMBOL CROSS REFERENCE CREF O01 SEQ 0101 
SYMBOL VALUE REERENCES 


12-920 


Li 
BS 
w 


B83 


Se 


tt 
—s 
oo 
SROSS 
os 


oO 
* 


$82 
3 


WOOURRA 
1 
i 
i 
RR 


PES LS Scere w 


As Ss 2 ss 


i 
1 
TTT 
at ae ne ee ee ee er ee 9 


a 


Oo = = 2000 


N 4 —NUIMOO 
wfWODOONS 


Ne 2 So es 
ih hb hb he he eee ek Ww 
— eo 
Ne PR Rm Rm Se oe 
3 rs 
oS 
LVYVVEL SPP 


oOo 2 S| 3 OO 
w er et > 6 4 
WODONEAS 
_ 
NAWS OOF 
Woon 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 


6 
9- 
32-20 


Vin = NI O 


48-2875 48-2875 48-2875 48-2875 48-2875 48-2875 48-2875 48-2875 48-2875 





Z 
SYMBOL CROSS REFERENCE 
VALUE 


SYMBOL 


CREATED BY 


000001 
000001 


= 000001 
002240 


002340 
010124 
010000 


010126 


021006 
020760 
000066 


MACRO ON 12=JUN-79 AT 12:26 


REFERENCES 
48-2875 


*31-2040 


* 32-2052 


48-2875 
09 


4 
33-2094 


29-1978 
* 32-2059 


PAGE 14 
CREF 


v01 
48-2875 


3 
430-1997 
424-1784 


*29-1979 
*32-2067 


60-3390 


12-933 
30-1997 


29-1957 


431-2023 


30-1999 


*30-1999 
*33-2079 


48-2875 


60-3390 


13-1069 
31-2023 


30-1995 
31-2022 


*38-2326 
*52-3058 
#14-1096 
432-2050 


30-2014 


*30-2006 
* 33-2086 


48-2875 


60-3390 


14-1 

33-2050 
31-2021 
32-2049 
41-2464 


#15-1142 
#33-2077 


31-2025 


* 30-2014 
* 33-2094 


48-2875 


15-1142 
33-2077 


32-2048 
33-2076 


*43-2508 


#16-1179 
448-2879 


31-2040 


*31-2025 


48-2879 


16-1179 
48-2879 


33-2075 


45-2604 


#17=1224 
#53-3077 


32-2052 


*31-2032 


SEQ 0102 





Z CREATED BY MACRO ON 12=JUN-79 AT 12:26 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE 


REFERENCES 
13-983 


#3-362 


53-3098 
52-3015 
30-2010 
33-2090 


14-1091 
26-1882 
*27-1925 


#291984 


52-3025 


459-3316 


PAGE 15 
CREF 


v01 


*30-2012 
*33-2092 


*14-1093 


26-1903 
*28-1935 


*52-3026 


60-3362 


#13-1003 
47-2825 


59-3316 


*31-2026 


#14-1097 
*35-2127 
*29-1958 


52-3027 


60-336 
460-3362 

13-1003 
#47-2830 


460-3358 


31-2036 


* 30-1996 


*52-3028 


60-3362 


26-1913 
47-2830 


60-3358 


*31-2038 


*31-2022 


52-3065 


26-1913 
447-2841 


460-3364 


* 32-2053 


*32-2049 


*52-3066 


5 
#55-3175 
9-3316 
#39-3319 
59-3319 
#60-3358 
60-3360 
#60-3361 
60-3364 
#47~2803 
47-2841 


60-3364 


* 33-2076 


52-3067 


35-3198 
#59-3316 
59-3317 


47-2803 
447-2845 





nun 


Zz CREATED BY MACRO ON 12=JUN-79 AT 12:26 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE 


"900376 
000001 


000001 
010000 


000007 
177777 


REFERENCES 
#59-331 


9-3315 
#60-3390 
59-3315 


37-1926 
53-3088 


#59~-3312 


427-1924 


8 
46-485 


PAGE 16 
CREF 
#59-3316 


#59-3316 
45 


38-1936 
§9-3327 


59-3316 
59-3316 


7 
59-3327  #60-3356 


#28-1934 #29-1957 


53-3079 


44-428 
44-428 
4-428 


6-485 #11-830 


vo1 


#60-3358 


#60-3358 
12-933 
30-1997 


60-3372 


#30-1995 


60-3358 


60-3358 
13-1069 
31-2023 


60-3372 
12-949 
#17-1201 


6-483 
#30-1995 
48-2879 


#31-2021 


59-3312 


4-428 
o7-2¢8 


428 
112-933 


460-3364 60-3364 
460-3364 


60-3364 
14-1096 15-1142 
32-2050 


33-2077 


60-3372 


#13-959 
17-1224 


#12-881 
30-1997 
#53-3073 


460-3372 


13-1069 
#18-1273 


60-3356 
4-428 


#5-458 5 
12-933 #12-949 


SEQ 0104 


16-1179 
48-2879 


He 
#58-3256 
59-3327 
60-3391 
#14-1082 
58-3256 
#27-1924 


31-2023 
#53-3079 


3 
60-3356 
4-428 


12-949 





Z 
SYMBOL CROSS REFERENCE 
VALUE 


SYMBOL 


TSTEST 


TSTSTM 


TSTSTS 
T 


CREATED BY MACRO ON 12=JUN-79 AT 12:26 


177777 


582 


eeresceecess® 


010022 


lelelelelelelelelelelelele) 


QDQAGAGA AAG a 


45-2628 


— Occ 


NANA 
& 


6 
#32-2048 
#27-1924 


#28-1934 
#29-1957 
#30-1995 


#31-2021 
#32-2048 
#33-2075 


#48-2880 
445-2688 
445-2645 


28-1934 
59-3327 
5-458 
60-3372 

#53-3079 
6-483 


#28-1934 
32-2050 


C 
s. 32 
- ww 
a 
st ~N 


wie 
SESSSBSISSSSZ s 


WAIN 
+e 


svseees 


3 


53-3088 


28-1936 
#33-2075 


ys 


fy 
+ 
w 
‘ 
ab 
o=— 
™ 
Nm 


DONAS IS 


Terry 
FES 


#29-1957 
33-2077 


Ve ag be 


#28-1934 


183 


#31-2021 


29-1959 


= 
Lal 
323 


DWoOwoow 


#30-1995 


#33-2075 


30-1997 


#17=1226 — 
1997 


#31-2021 





SEQ 0105 


Z CREATED BY 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE 


000020 

024332 
30-2005 
33-2085 


MACRO ON 12=-JUN-79 AT 


*27=1928 
35-2088 


27-1928 
#30-2005 

33-2085 
#27-1928 
#30-2005 
#33-2085 
#38-2345 
#35-2148 

28-1940 


30-2005 
33-2085 


12:26 


35-2196 
35-2185 


*28-1940 
* 32-2058 
*28-1940 


* 30-2005 
33-2085 


30-200 
35-2131 


PAGE 18 
CREF 


#53-3090 
#49~2897 
#20-1588 


52-3018 
52-3005 


*29-1965 


*29-1965 
30-2005 
35-2146 


*38-2314 


29-1965 
31-2031 
35-2134 


vo1 


53-3097 
#352177 


53-3076 
52-3011 


*29-1965 


*29-1965 
31-2031 
37-2237 


#29-1965 
*31-2031 
#35-2142 

38-2315 


29-1965 
31-2031 
35-2140 


52-3022 


31-203 
43-2503 


37-2245 
*38-2363 


29-1965 
35-9938 
#57-3220 


52-3032 


*30-2005 
1965 
+33-2058 
*29-1965 
*32-2058 
38-2308 


29-1966 
32-2058 


52-3040 


*30-2005 
29-1966 
*32-2058 


#291966 
#322058 
#38-2312 


29-1966 
32-2058 


52-3063 


*30-2005 


29-1966 
*32-2058 


#29-1966 
#32-2058 
#38-2323 


30-2005 
32-2058 





CREATED BY 
NCE 


4- 
#15-1118 
#16-1151 


#59-3315 


MACRO ON 12=-JUN-79 AT 12:26 


53-3079 
28-1934 


47-2849 


#53-3088 
28-1936 
47-2817 


47-2841 


#59-3316 
60-3364 
#59-3318 


#3-405 
59-3315 


PAGE 
CREF 


18-1273 


29-1957 


12-892 
52-3067 


31-2021 
26-1914 


32-2048 
35-2188 


58-3256 60-3391 


29-1959 31-2023 32-2050 


426-1913 
54-3141 


#59-3319 #60-3359 460-3360  #60-3361 


43-405 
459-3316 


#3-405 


59-3316 #59-3317 59-3317 


33-2075 
39-2425 


33-2077 


460-3362 


#59-3318 


52-3009 


59-3318 


53-3094 


#59-3319 


59-3319 


SEQ 0107 





CREATED 4 MACRO ON 12=-JUN-79 AT 12:26 


#59-3316 
#60-3359 


447-2830 
59-3315 


453-3077 53-3077 #53-3088 


60-3359 


53-3088 


#59-3316 
#60-3359 


#11-830 


53-5088 


PAGE 20 
CREF 


vo1 


48-2869 
54-3142 


#58-3256 


#59-3317 
#60-3360 


#12-933 


#58-3256 


58-3256 


#59~5317 
460-3360 


#12-949 
#31-2023 


26-1913 


447-2841 
59-3316 


58-3256 


#60-3361 
#12-910 


#59-3327 


#59-3318 
#60-3361 


#13-1069 
#32-2050 


447-2803 


#59~-3327 


59-3327 
#59-3318 
460-3361 
#14-1096 
#33-2077 
447-2803 


47-2845 
60-3358 


59-3327 


#60-3372 


459-3319 
#60-3362 


#15-1142 
#48-2879 


447-2817 


#60-3372 


#59-3319 
#60-3362 


#16-1179 
#53-3077 


#47-2817 


60-3372 


SEQ 0108 





Z CREATED BY MACRO ON 12=JUN-79 AT 12:26 PAGE 21 
MACRO CROSS REFERENCE CREF vO1 SEQ 0109 
MACRO NAME REFER 


MSGNGB 


8 8 8 8 
45-2655 #45-2655 45-2655  #45-2655 45-2655 45-2655  #45-2655 45-2655 45-2655 445-2663 





Z CRE 
MACRO CROSS RE 
MACRO NAME 


ATED BY MACRO ON 12=JUN=79 AT 12:26 
go 


E mr 
#45-266 
47-280 


#52-3027 


#52-3065 


wim} 


#53-3077 
428-1934 
433-2075 


#4-409 


452-306 


45-2663 


453-3073 


PAGE 22 
CREF 


vo1 
45-2663 


453-3073 


465-2663 


6 61 
60-3364 
#12-933 


453-3073 


45-2663 
3 


453-3073 


45-2663 


#60-3372 
#13-1069 


9 
453-3079 


447-2803 


#53-3079 


SEQ 0110 





CREATED BY MACRO ON 12=JUN-79 AT 12:26 PAGE 23 
MACRO CROSS REFERENCE CREF =v01 SEQ 0111 
MACRO NAME eee 


#53-3094 = 53-3095 = #54-3141 = #54-3142 «55-3175 9 #55=3180 «= #55-3182 9 #59-3301 49 #5 9- 3301 


939-3312 WS59~3312 = #59-3312 «= #59-3312 «=— #603356 9=—#60-3356 }§=— #603356 §=— #60- 3356 

MSLDRO #13-963 13-963 #13-990 13-990 #14-1095 14-1095 #14=1107 14-1107 #47-2849 47-2849 
#523024 52-3024 #52-3065 52-3065 #52-3067 52-3067 

MSMCH I #3-362 #3-362 

MSMCLO #3-362 #3-362 

MSPOP 44-413 4-413 #5-458 5-458 #6-483 6-483 46-485 6-485 #11-830 ~830 


#30-1997 30-1997 #31-2023 31-2023 #32-2050 32-2050 #33-2077 33-2077 #48-2879 48-2879 
#53-3077 53-3077 #53-3088 53-3088  #58-3256 58-3256 #59-3327 59-3327 #60-3372 60-3372 


MSPRIN #12-891 #12-891 #12-893 #12-893 #12-909 #12-909 #12-910 #12-910 #12-920 #12-920 
14-1106 = 14-1106 = 16-1159) 416-1159 = #45=2624 = #452624 = 45-2629 = #45=2629 = #45-2632 = #45 = 2632 
#45~2634 = #45~2634 = #45=2648 = #45~2648 = #45-2655 = #45-2655 = #452663 = #452663 = #48B-2869 #4 B- 2869 
#48-2872 = 48-2872 = #48-2875 = #482875 = #54-3142 954-3142 «= 55-3175 = 55-3175 = 55-3180 = #55 - 3180 


M$SPUSH #3-388 #3-388 44-409 44-409 5-445 5-445 46-467 46-467 #7-538 #7-538 


29-1957 #29-1957 30-1995 430-1995 31-2021 431-2021 432-2048 #32- #33-2075 #33-2075 
yoy M32 por sa) #53-3073 953-3073 3=—- #53-3079 )=—- #53-3079 §=—- #S9-3301 «= #59-3301 9 #59-3312 = #59-3312 
MSPUT #12-891 #12-891 #12-891 #12-893 #12-893 #12-893 #12-909 #12-909 #12-909 #12-909 


3 
448-2869  #48-2869 #48-2869 448-2869 #48-2872 448-2872 #48-2872 #48-2872 #48-2872  #48-2872 
#48-2872 = #48-2875 = #48-2875 = #48-2875 = #48-2875 §=— 52-3025 «= #52-3025 «= #52-3025 9-52-3025 = #52- 3025 
#52-3027 = #52-3027 852-3027 3 =—#52-3027 §9=— #523027 §=— #54-3142 = #54-3142 9-54-3142 «= #54-3142 9 #55 -3175 


M$PUT1 #12-891 #12-891 #12-891 #12-891 #12-893 #12-893 #12-893 #12-893 #12-909 #12-909 


M$RAD! #59~3315 = #59-3315 = #59-3316 «= 59-3316 #59-3317 #59-3317 #59-3318  4#59-3318 #59-3319 #59-3319 


CREATED BY MACRO ON 12=JUN-79 AT 12:26 


Z 
MACRO CROSS REFE 
MACRO NAME 


MSRNRO 
MSSETS 


MS$SVC 


MSTLAB 


MSTSTL 


RENCE 


REFERENCES 
#60-33558 


#60-3362 


460-3364 


#60-3359 
#13-1039 
44-409 


5 
#53-3073 
#12-889 


460-3364 


#60-3359 
#13-1039 
9 


460-3390 


PAGE 24 
CREF 


v01 
#60-3360 


#53-3079 
#12-891 


#60-3390 


#60-3360 


#53-3079 
12-891 


#60-3360 


#60-3361 


46-467 
#14-1082 


8 
#59=3301 


#12-892 
#12-920 
13-990 


#60-3360 


460-3361 


#60-3361 


460-3362 


#33-2075 
459-3312 


#12-893 


#60-3361 


SEQ O11e 


#60-3362 


#7-538 

#15-1118 
#28-"934 
#33-2075 
#59-3312 


460-3362 


CREATED BY MACRO ON 12=JUN-79 AT 12:26 cnr 25 


Z 

MACRO CROSS REFERENCE vo1 SEQ 0113 

MACRO NAME REFERENCES 

POINTE 3-395 . 

POP #10-633 10-790 10-791 12-927 12-928 12-929 12-930 12-931 12-932 16-1157 
16-1158 35-2189 35-2197 38-2384 38-2385 45-2675 45-2676 47-2850 47-2851 47-2852 
ry oa TE rs ms 144 48-2878 50-2940 941 51-2976 51-2977 54-3146 54-3147 54-3148 

os -5 

PRINTB #16-1159 = #45=26468 848-2869 848-2872 848-2875 454-3142 

PRINTF 14-11 55-3175 55-3180 55-3182 

PRINTS #12-891 #12~893 #12-909 #12-910 #12-920 

PRINTX 45-262 45-262 45-263 45-263 45-2655 45-2663 

PUSH #10-630 10-783 10-784 12-882 12-883 12-884 12-885 12-886 12-887 16-1153 
16-1154 35-2183 35-2187 38-2373 38-2374 45-2602 45-2603 47-2787 47-2788 47-2789 
47-2790 48-286 48-2864 50-2916 50-2917 51-2954 51-2955 54-3120 54-3121 54-3122 
55-3168 55-3169 

READEF #13-963 

RET #10-626 10-735 10-758 10-774 10-792 11-810 11-828 16-1186 26-1916 27-1930 
28-194 29-1983 30-2017 31-2043 32-2070 33-2097 35-2181 35-2198 2220 37-2282 
38-2371 38-2386 39-2448 41-2480 43-2583 45-2677 46-2772 47-2854 49-2903 50-2942 
51-297 52-3069 53-3100 54-3150 55-3185 ' 

RFLAGS #13-1039 

SETPRI 52-3024 

SETVEC 14-1084 52-3025 52-3027 

SVC #3-361 3-362 

SWAP IN #19-12 26-1881 26-1902 

#19-1299 #35-2128 

TSTID #19-1515 27-192 28-1935 29-1958 30-1996 31-2022 32-2049 33-2076 

TUREAD #191445 29-1 31-2031 33-2085 

TURTRY #19-1403 = #29-1965 429-1966 430-2005 431-2031 432-2058  #33-2085 

TUSEEK #19-1376 #28-1940 

TUSELF #19-1490 27-1928 


